;;;; Generated on 3/22/2021 at 17:54:24 (UTC-8).

(COMMON-LISP:DECLAIM
 (COMMON-LISP:OPTIMIZE (COMMON-LISP:SPEED 0) COMMON-LISP:SAFETY
  COMMON-LISP:DEBUG COMMON-LISP:COMPILATION-SPEED))

(COMMON-LISP:IN-PACKAGE #:MAGICL.BLAS-CFFI)

(COMMON-LISP:DECLAIM
 (COMMON-LISP:INLINE %%CAXPY %CAXPY %%CCOPY %CCOPY %%CDOTC %CDOTC %%CDOTU
  %CDOTU %%CGBMV %CGBMV %%CGEMM %CGEMM %%CGEMV %CGEMV %%CGERC %CGERC %%CGERU
  %CGERU %%CHBMV %CHBMV %%CHEMM %CHEMM %%CHEMV %CHEMV %%CHER %CHER %%CHER2
  %CHER2 %%CHER2K %CHER2K %%CHERK %CHERK %%CHPMV %CHPMV %%CHPR %CHPR %%CHPR2
  %CHPR2 %%CROTG %CROTG %%CSCAL %CSCAL %%CSROT %CSROT %%CSSCAL %CSSCAL %%CSWAP
  %CSWAP %%CSYMM %CSYMM %%CSYR2K %CSYR2K %%CSYRK %CSYRK %%CTBMV %CTBMV %%CTBSV
  %CTBSV %%CTPMV %CTPMV %%CTPSV %CTPSV %%CTRMM %CTRMM %%CTRMV %CTRMV %%CTRSM
  %CTRSM %%CTRSV %CTRSV %%DASUM %DASUM %%DAXPY %DAXPY %%DCABS1 %DCABS1 %%DCOPY
  %DCOPY %%DDOT %DDOT %%DGBMV %DGBMV %%DGEMM %DGEMM %%DGEMV %DGEMV %%DGER %DGER
  %%DNRM2 %DNRM2 %%DROT %DROT %%DROTG %DROTG %%DROTM %DROTM %%DROTMG %DROTMG
  %%DSBMV %DSBMV %%DSCAL %DSCAL %%DSDOT %DSDOT %%DSPMV %DSPMV %%DSPR %DSPR
  %%DSPR2 %DSPR2 %%DSWAP %DSWAP %%DSYMM %DSYMM %%DSYMV %DSYMV %%DSYR %DSYR
  %%DSYR2 %DSYR2 %%DSYR2K %DSYR2K %%DSYRK %DSYRK %%DTBMV %DTBMV %%DTBSV %DTBSV
  %%DTPMV %DTPMV %%DTPSV %DTPSV %%DTRMM %DTRMM %%DTRMV %DTRMV %%DTRSM %DTRSM
  %%DTRSV %DTRSV %%DZASUM %DZASUM %%DZNRM2 %DZNRM2 %%ICAMAX %ICAMAX %%IDAMAX
  %IDAMAX %%ISAMAX %ISAMAX %%IZAMAX %IZAMAX %%LSAME %LSAME %%SASUM %SASUM
  %%SAXPY %SAXPY %%SCABS1 %SCABS1 %%SCASUM %SCASUM %%SCNRM2 %SCNRM2 %%SCOPY
  %SCOPY %%SDOT %SDOT %%SDSDOT %SDSDOT %%SGBMV %SGBMV %%SGEMM %SGEMM %%SGEMV
  %SGEMV %%SGER %SGER %%SNRM2 %SNRM2 %%SROT %SROT %%SROTG %SROTG %%SROTM %SROTM
  %%SROTMG %SROTMG %%SSBMV %SSBMV %%SSCAL %SSCAL %%SSPMV %SSPMV %%SSPR %SSPR
  %%SSPR2 %SSPR2 %%SSWAP %SSWAP %%SSYMM %SSYMM %%SSYMV %SSYMV %%SSYR %SSYR
  %%SSYR2 %SSYR2 %%SSYR2K %SSYR2K %%SSYRK %SSYRK %%STBMV %STBMV %%STBSV %STBSV
  %%STPMV %STPMV %%STPSV %STPSV %%STRMM %STRMM %%STRMV %STRMV %%STRSM %STRSM
  %%STRSV %STRSV %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZAXPY %ZAXPY
  %%ZCOPY %ZCOPY %%ZDOTC %ZDOTC %%ZDOTU %ZDOTU %%ZDROT %ZDROT %%ZDSCAL %ZDSCAL
  %%ZGBMV %ZGBMV %%ZGEMM %ZGEMM %%ZGEMV %ZGEMV %%ZGERC %ZGERC %%ZGERU %ZGERU
  %%ZHBMV %ZHBMV %%ZHEMM %ZHEMM %%ZHEMV %ZHEMV %%ZHER %ZHER %%ZHER2 %ZHER2
  %%ZHER2K %ZHER2K %%ZHERK %ZHERK %%ZHPMV %ZHPMV %%ZHPR %ZHPR %%ZHPR2 %ZHPR2
  %%ZROTG %ZROTG %%ZSCAL %ZSCAL %%ZSWAP %ZSWAP %%ZSYMM %ZSYMM %%ZSYR2K %ZSYR2K
  %%ZSYRK %ZSYRK %%ZTBMV %ZTBMV %%ZTBSV %ZTBSV %%ZTPMV %ZTPMV %%ZTPSV %ZTPSV
  %%ZTRMM %ZTRMM %%ZTRMV %ZTRMV %%ZTRSM %ZTRSM %%ZTRSV %ZTRSV))

(CFFI:DEFCFUN ("caxpy_" %%CAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (CA :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CAXPY (N CA CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CAXPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23260 ':INT32)
                              (CA-REF23261
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF23263 ':INT32) (INCY-REF23265 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23260 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CA-REF23261
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23263 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23265 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23262 CX) (CY-REF23264 CY))
      (%%CAXPY N-REF23260 CA-REF23261 CX-REF23262 INCX-REF23263 CY-REF23264
       INCY-REF23265))))

(CFFI:DEFCFUN ("ccopy_" %%CCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CCOPY (N CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CCOPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23266 ':INT32) (INCX-REF23268 ':INT32)
                              (INCY-REF23270 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23268 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23270 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23267 CX) (CY-REF23269 CY))
      (%%CCOPY N-REF23266 CX-REF23267 INCX-REF23268 CY-REF23269
       INCY-REF23270))))

(CFFI:DEFCFUN ("cdotc_" %%CDOTC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CDOTC (N CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CDOTC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23271 ':INT32) (INCX-REF23273 ':INT32)
                              (INCY-REF23275 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23271 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23273 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23275 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23272 CX) (CY-REF23274 CY))
      (%%CDOTC N-REF23271 CX-REF23272 INCX-REF23273 CY-REF23274
       INCY-REF23275))))

(CFFI:DEFCFUN ("cdotu_" %%CDOTU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CDOTU (N CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CDOTU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23276 ':INT32) (INCX-REF23278 ':INT32)
                              (INCY-REF23280 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23276 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23278 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23280 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23277 CX) (CY-REF23279 CY))
      (%%CDOTU N-REF23276 CX-REF23277 INCX-REF23278 CY-REF23279
       INCY-REF23280))))

(CFFI:DEFCFUN ("cgbmv_" %%CGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CGBMV (TRANS M N KL KU ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23282 ':INT32) (N-REF23283 ':INT32)
                              (KL-REF23284 ':INT32) (KU-REF23285 ':INT32)
                              (ALPHA-REF23286
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23288 ':INT32) (INCX-REF23290 ':INT32)
                              (BETA-REF23291
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF23293 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23282 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23283 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF23284 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF23285 :INT32) KU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23286
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23288 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23290 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23291
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23293 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23287 A) (X-REF23289 X)
                                            (Y-REF23292 Y))
      (%%CGBMV TRANS M-REF23282 N-REF23283 KL-REF23284 KU-REF23285
       ALPHA-REF23286 A-REF23287 LDA-REF23288 X-REF23289 INCX-REF23290
       BETA-REF23291 Y-REF23292 INCY-REF23293))))

(CFFI:DEFCFUN ("cgemm_" %%CGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANSA :STRING)
  (TRANSB :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CGEMM (TRANSA TRANSB M N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23296 ':INT32) (N-REF23297 ':INT32)
                              (K-REF23298 ':INT32)
                              (ALPHA-REF23299
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23301 ':INT32) (LDB-REF23303 ':INT32)
                              (BETA-REF23304
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF23306 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23296 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23297 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23298 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23299
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23301 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23303 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23304
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23306 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23300 A) (B-REF23302 B)
                                            (C-REF23305 C))
      (%%CGEMM TRANSA TRANSB M-REF23296 N-REF23297 K-REF23298 ALPHA-REF23299
       A-REF23300 LDA-REF23301 B-REF23302 LDB-REF23303 BETA-REF23304 C-REF23305
       LDC-REF23306))))

(CFFI:DEFCFUN ("cgemv_" %%CGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CGEMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23308 ':INT32) (N-REF23309 ':INT32)
                              (ALPHA-REF23310
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23312 ':INT32) (INCX-REF23314 ':INT32)
                              (BETA-REF23315
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF23317 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23308 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23309 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23310
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23312 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23314 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23315
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23317 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23311 A) (X-REF23313 X)
                                            (Y-REF23316 Y))
      (%%CGEMV TRANS M-REF23308 N-REF23309 ALPHA-REF23310 A-REF23311
       LDA-REF23312 X-REF23313 INCX-REF23314 BETA-REF23315 Y-REF23316
       INCY-REF23317))))

(CFFI:DEFCFUN ("cgerc_" %%CGERC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CGERC (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23318 ':INT32) (N-REF23319 ':INT32)
                              (ALPHA-REF23320
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF23322 ':INT32) (INCY-REF23324 ':INT32)
                              (LDA-REF23326 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23318 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23319 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23320
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23322 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23324 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23326 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23321 X) (Y-REF23323 Y)
                                            (A-REF23325 A))
      (%%CGERC M-REF23318 N-REF23319 ALPHA-REF23320 X-REF23321 INCX-REF23322
       Y-REF23323 INCY-REF23324 A-REF23325 LDA-REF23326))))

(CFFI:DEFCFUN ("cgeru_" %%CGERU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CGERU (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CGERU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23327 ':INT32) (N-REF23328 ':INT32)
                              (ALPHA-REF23329
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF23331 ':INT32) (INCY-REF23333 ':INT32)
                              (LDA-REF23335 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23327 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23328 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23329
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23331 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23333 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23335 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23330 X) (Y-REF23332 Y)
                                            (A-REF23334 A))
      (%%CGERU M-REF23327 N-REF23328 ALPHA-REF23329 X-REF23330 INCX-REF23331
       Y-REF23332 INCY-REF23333 A-REF23334 LDA-REF23335))))

(CFFI:DEFCFUN ("chbmv_" %%CHBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CHBMV (UPLO N K ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23337 ':INT32) (K-REF23338 ':INT32)
                              (ALPHA-REF23339
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23341 ':INT32) (INCX-REF23343 ':INT32)
                              (BETA-REF23344
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF23346 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23337 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23338 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23339
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23341 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23343 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23344
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23346 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23340 A) (X-REF23342 X)
                                            (Y-REF23345 Y))
      (%%CHBMV UPLO N-REF23337 K-REF23338 ALPHA-REF23339 A-REF23340
       LDA-REF23341 X-REF23342 INCX-REF23343 BETA-REF23344 Y-REF23345
       INCY-REF23346))))

(CFFI:DEFCFUN ("chemm_" %%CHEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CHEMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23349 ':INT32) (N-REF23350 ':INT32)
                              (ALPHA-REF23351
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23353 ':INT32) (LDB-REF23355 ':INT32)
                              (BETA-REF23356
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF23358 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23349 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23350 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23351
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23353 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23355 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23356
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23358 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23352 A) (B-REF23354 B)
                                            (C-REF23357 C))
      (%%CHEMM SIDE UPLO M-REF23349 N-REF23350 ALPHA-REF23351 A-REF23352
       LDA-REF23353 B-REF23354 LDB-REF23355 BETA-REF23356 C-REF23357
       LDC-REF23358))))

(CFFI:DEFCFUN ("chemv_" %%CHEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CHEMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23360 ':INT32)
                              (ALPHA-REF23361
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23363 ':INT32) (INCX-REF23365 ':INT32)
                              (BETA-REF23366
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF23368 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23360 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23361
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23363 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23365 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23366
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23368 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23362 A) (X-REF23364 X)
                                            (Y-REF23367 Y))
      (%%CHEMV UPLO N-REF23360 ALPHA-REF23361 A-REF23362 LDA-REF23363
       X-REF23364 INCX-REF23365 BETA-REF23366 Y-REF23367 INCY-REF23368))))

(CFFI:DEFCFUN ("cher_" %%CHER :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CHER (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHER)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23370 ':INT32) (ALPHA-REF23371 ':FLOAT)
                              (INCX-REF23373 ':INT32) (LDA-REF23375 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23370 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23371 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23373 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23375 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23372 X) (A-REF23374 A))
      (%%CHER UPLO N-REF23370 ALPHA-REF23371 X-REF23372 INCX-REF23373
       A-REF23374 LDA-REF23375))))

(CFFI:DEFCFUN ("cher2_" %%CHER2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %CHER2 (UPLO N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHER2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23377 ':INT32)
                              (ALPHA-REF23378
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF23380 ':INT32) (INCY-REF23382 ':INT32)
                              (LDA-REF23384 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23377 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23378
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23380 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23382 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23384 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23379 X) (Y-REF23381 Y)
                                            (A-REF23383 A))
      (%%CHER2 UPLO N-REF23377 ALPHA-REF23378 X-REF23379 INCX-REF23380
       Y-REF23381 INCY-REF23382 A-REF23383 LDA-REF23384))))

(CFFI:DEFCFUN ("cher2k_" %%CHER2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CHER2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHER2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23387 ':INT32) (K-REF23388 ':INT32)
                              (ALPHA-REF23389
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23391 ':INT32) (LDB-REF23393 ':INT32)
                              (BETA-REF23394 ':FLOAT) (LDC-REF23396 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23387 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23388 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23389
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23391 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23393 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23394 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23396 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23390 A) (B-REF23392 B)
                                            (C-REF23395 C))
      (%%CHER2K UPLO TRANS N-REF23387 K-REF23388 ALPHA-REF23389 A-REF23390
       LDA-REF23391 B-REF23392 LDB-REF23393 BETA-REF23394 C-REF23395
       LDC-REF23396))))

(CFFI:DEFCFUN ("cherk_" %%CHERK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CHERK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHERK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23399 ':INT32) (K-REF23400 ':INT32)
                              (ALPHA-REF23401 ':FLOAT) (LDA-REF23403 ':INT32)
                              (BETA-REF23404 ':FLOAT) (LDC-REF23406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23399 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23400 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23401 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23403 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23404 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23406 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23402 A) (C-REF23405 C))
      (%%CHERK UPLO TRANS N-REF23399 K-REF23400 ALPHA-REF23401 A-REF23402
       LDA-REF23403 BETA-REF23404 C-REF23405 LDC-REF23406))))

(CFFI:DEFCFUN ("chpmv_" %%CHPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CHPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23408 ':INT32)
                              (ALPHA-REF23409
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF23412 ':INT32)
                              (BETA-REF23413
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCY-REF23415 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23408 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23409
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23412 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23413
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23415 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23410 AP) (X-REF23411 X)
                                            (Y-REF23414 Y))
      (%%CHPMV UPLO N-REF23408 ALPHA-REF23409 AP-REF23410 X-REF23411
       INCX-REF23412 BETA-REF23413 Y-REF23414 INCY-REF23415))))

(CFFI:DEFCFUN ("chpr_" %%CHPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %CHPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23417 ':INT32) (ALPHA-REF23418 ':FLOAT)
                              (INCX-REF23420 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23417 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23418 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23420 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23419 X) (AP-REF23421 AP))
      (%%CHPR UPLO N-REF23417 ALPHA-REF23418 X-REF23419 INCX-REF23420
       AP-REF23421))))

(CFFI:DEFCFUN ("chpr2_" %%CHPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %CHPR2 (UPLO N ALPHA X INCX Y INCY AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CHPR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23423 ':INT32)
                              (ALPHA-REF23424
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF23426 ':INT32) (INCY-REF23428 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23423 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23424
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23426 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23428 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23425 X) (Y-REF23427 Y)
                                            (AP-REF23429 AP))
      (%%CHPR2 UPLO N-REF23423 ALPHA-REF23424 X-REF23425 INCX-REF23426
       Y-REF23427 INCY-REF23428 AP-REF23429))))

(CFFI:DEFCFUN ("crotg_" %%CROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (CA :POINTER)
  (CB :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %CROTG (CA CB C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CROTG)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((CA-REF23430
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (CB-REF23431
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (C-REF23432 ':FLOAT)
                              (S-REF23433
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CA-REF23430
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CB-REF23431
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CB)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CB)))
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23432 :FLOAT) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF23433 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%CROTG CA-REF23430 CB-REF23431 C-REF23432 S-REF23433))))

(CFFI:DEFCFUN ("cscal_" %%CSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (CA :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CSCAL (N CA CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23434 ':INT32)
                              (CA-REF23435
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (INCX-REF23437 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23434 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CA-REF23435
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23437 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23436 CX))
      (%%CSCAL N-REF23434 CA-REF23435 CX-REF23436 INCX-REF23437))))

(CFFI:DEFCFUN ("csrot_" %%CSROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %CSROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23438 ':INT32) (INCX-REF23440 ':INT32)
                              (INCY-REF23442 ':INT32) (C-REF23443 ':FLOAT)
                              (S-REF23444 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23438 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23440 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23442 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23443 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23444 :FLOAT) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23439 CX) (CY-REF23441 CY))
      (%%CSROT N-REF23438 CX-REF23439 INCX-REF23440 CY-REF23441 INCY-REF23442
       C-REF23443 S-REF23444))))

(CFFI:DEFCFUN ("csscal_" %%CSSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CSSCAL (N SA CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23445 ':INT32) (SA-REF23446 ':FLOAT)
                              (INCX-REF23448 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23445 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF23446 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23448 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23447 CX))
      (%%CSSCAL N-REF23445 SA-REF23446 CX-REF23447 INCX-REF23448))))

(CFFI:DEFCFUN ("cswap_" %%CSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %CSWAP (N CX INCX CY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSWAP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23449 ':INT32) (INCX-REF23451 ':INT32)
                              (INCY-REF23453 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23449 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23451 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23453 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23450 CX) (CY-REF23452 CY))
      (%%CSWAP N-REF23449 CX-REF23450 INCX-REF23451 CY-REF23452
       INCY-REF23453))))

(CFFI:DEFCFUN ("csymm_" %%CSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CSYMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23456 ':INT32) (N-REF23457 ':INT32)
                              (ALPHA-REF23458
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23460 ':INT32) (LDB-REF23462 ':INT32)
                              (BETA-REF23463
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF23465 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23456 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23457 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23458
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23460 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23462 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23463
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23465 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23459 A) (B-REF23461 B)
                                            (C-REF23464 C))
      (%%CSYMM SIDE UPLO M-REF23456 N-REF23457 ALPHA-REF23458 A-REF23459
       LDA-REF23460 B-REF23461 LDB-REF23462 BETA-REF23463 C-REF23464
       LDC-REF23465))))

(CFFI:DEFCFUN ("csyr2k_" %%CSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CSYR2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYR2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23468 ':INT32) (K-REF23469 ':INT32)
                              (ALPHA-REF23470
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23472 ':INT32) (LDB-REF23474 ':INT32)
                              (BETA-REF23475
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF23477 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23468 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23469 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23470
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23472 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23474 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23475
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23477 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23471 A) (B-REF23473 B)
                                            (C-REF23476 C))
      (%%CSYR2K UPLO TRANS N-REF23468 K-REF23469 ALPHA-REF23470 A-REF23471
       LDA-REF23472 B-REF23473 LDB-REF23474 BETA-REF23475 C-REF23476
       LDC-REF23477))))

(CFFI:DEFCFUN ("csyrk_" %%CSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %CSYRK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CSYRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23480 ':INT32) (K-REF23481 ':INT32)
                              (ALPHA-REF23482
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23484 ':INT32)
                              (BETA-REF23485
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDC-REF23487 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23480 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23481 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23482
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23484 :INT32) LDA)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF23485
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23487 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23483 A) (C-REF23486 C))
      (%%CSYRK UPLO TRANS N-REF23480 K-REF23481 ALPHA-REF23482 A-REF23483
       LDA-REF23484 BETA-REF23485 C-REF23486 LDC-REF23487))))

(CFFI:DEFCFUN ("ctbmv_" %%CTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTBMV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23491 ':INT32) (K-REF23492 ':INT32)
                              (LDA-REF23494 ':INT32) (INCX-REF23496 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23491 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23492 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23494 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23496 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23493 A) (X-REF23495 X))
      (%%CTBMV UPLO TRANS DIAG N-REF23491 K-REF23492 A-REF23493 LDA-REF23494
       X-REF23495 INCX-REF23496))))

(CFFI:DEFCFUN ("ctbsv_" %%CTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTBSV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23500 ':INT32) (K-REF23501 ':INT32)
                              (LDA-REF23503 ':INT32) (INCX-REF23505 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23500 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23501 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23503 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23505 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23502 A) (X-REF23504 X))
      (%%CTBSV UPLO TRANS DIAG N-REF23500 K-REF23501 A-REF23502 LDA-REF23503
       X-REF23504 INCX-REF23505))))

(CFFI:DEFCFUN ("ctpmv_" %%CTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTPMV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23509 ':INT32) (INCX-REF23512 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23509 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23512 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23510 AP) (X-REF23511 X))
      (%%CTPMV UPLO TRANS DIAG N-REF23509 AP-REF23510 X-REF23511
       INCX-REF23512))))

(CFFI:DEFCFUN ("ctpsv_" %%CTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTPSV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23516 ':INT32) (INCX-REF23519 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23516 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23519 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23517 AP) (X-REF23518 X))
      (%%CTPSV UPLO TRANS DIAG N-REF23516 AP-REF23517 X-REF23518
       INCX-REF23519))))

(CFFI:DEFCFUN ("ctrmm_" %%CTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CTRMM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23524 ':INT32) (N-REF23525 ':INT32)
                              (ALPHA-REF23526
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23528 ':INT32) (LDB-REF23530 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23524 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23525 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23526
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23528 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23530 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23527 A) (B-REF23529 B))
      (%%CTRMM SIDE UPLO TRANSA DIAG M-REF23524 N-REF23525 ALPHA-REF23526
       A-REF23527 LDA-REF23528 B-REF23529 LDB-REF23530))))

(CFFI:DEFCFUN ("ctrmv_" %%CTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTRMV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23534 ':INT32) (LDA-REF23536 ':INT32)
                              (INCX-REF23538 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23534 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23536 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23538 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23535 A) (X-REF23537 X))
      (%%CTRMV UPLO TRANS DIAG N-REF23534 A-REF23535 LDA-REF23536 X-REF23537
       INCX-REF23538))))

(CFFI:DEFCFUN ("ctrsm_" %%CTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %CTRSM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23543 ':INT32) (N-REF23544 ':INT32)
                              (ALPHA-REF23545
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
                              (LDA-REF23547 ':INT32) (LDB-REF23549 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23543 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23544 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF23545
                              MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23547 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23549 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23546 A) (B-REF23548 B))
      (%%CTRSM SIDE UPLO TRANSA DIAG M-REF23543 N-REF23544 ALPHA-REF23545
       A-REF23546 LDA-REF23547 B-REF23548 LDB-REF23549))))

(CFFI:DEFCFUN ("ctrsv_" %%CTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %CTRSV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%CTRSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23553 ':INT32) (LDA-REF23555 ':INT32)
                              (INCX-REF23557 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23553 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23555 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23557 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23554 A) (X-REF23556 X))
      (%%CTRSV UPLO TRANS DIAG N-REF23553 A-REF23554 LDA-REF23555 X-REF23556
       INCX-REF23557))))

(CFFI:DEFCFUN ("dasum_" %%DASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DASUM (N DX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DASUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23558 ':INT32) (INCX-REF23560 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23558 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23560 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23559 DX))
      (%%DASUM N-REF23558 DX-REF23559 INCX-REF23560))))

(CFFI:DEFCFUN ("daxpy_" %%DAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (DA :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DAXPY (N DA DX INCX DY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DAXPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23561 ':INT32) (DA-REF23562 ':DOUBLE)
                              (INCX-REF23564 ':INT32) (INCY-REF23566 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23561 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF23562 :DOUBLE) DA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23564 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23566 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23563 DX) (DY-REF23565 DY))
      (%%DAXPY N-REF23561 DA-REF23562 DX-REF23563 INCX-REF23564 DY-REF23565
       INCY-REF23566))))

(CFFI:DEFCFUN ("dcabs1_" %%DCABS1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :DOUBLE
  (Z :POINTER))

(COMMON-LISP:DEFUN %DCABS1 (Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DCABS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((Z-REF23567
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              Z-REF23567 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Z)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Z)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DCABS1 Z-REF23567))))

(CFFI:DEFCFUN ("dcopy_" %%DCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DCOPY (N DX INCX DY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DCOPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23568 ':INT32) (INCX-REF23570 ':INT32)
                              (INCY-REF23572 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23568 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23570 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23572 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23569 DX) (DY-REF23571 DY))
      (%%DCOPY N-REF23568 DX-REF23569 INCX-REF23570 DY-REF23571
       INCY-REF23572))))

(CFFI:DEFCFUN ("ddot_" %%DDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DDOT (N DX INCX DY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DDOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23573 ':INT32) (INCX-REF23575 ':INT32)
                              (INCY-REF23577 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23573 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23575 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23577 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23574 DX) (DY-REF23576 DY))
      (%%DDOT N-REF23573 DX-REF23574 INCX-REF23575 DY-REF23576 INCY-REF23577))))

(CFFI:DEFCFUN ("dgbmv_" %%DGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DGBMV (TRANS M N KL KU ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23579 ':INT32) (N-REF23580 ':INT32)
                              (KL-REF23581 ':INT32) (KU-REF23582 ':INT32)
                              (ALPHA-REF23583 ':DOUBLE) (LDA-REF23585 ':INT32)
                              (INCX-REF23587 ':INT32) (BETA-REF23588 ':DOUBLE)
                              (INCY-REF23590 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23579 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23580 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF23581 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF23582 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23583 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23585 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23587 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23588 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23590 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23584 A) (X-REF23586 X)
                                            (Y-REF23589 Y))
      (%%DGBMV TRANS M-REF23579 N-REF23580 KL-REF23581 KU-REF23582
       ALPHA-REF23583 A-REF23584 LDA-REF23585 X-REF23586 INCX-REF23587
       BETA-REF23588 Y-REF23589 INCY-REF23590))))

(CFFI:DEFCFUN ("dgemm_" %%DGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANSA :STRING)
  (TRANSB :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %DGEMM (TRANSA TRANSB M N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23593 ':INT32) (N-REF23594 ':INT32)
                              (K-REF23595 ':INT32) (ALPHA-REF23596 ':DOUBLE)
                              (LDA-REF23598 ':INT32) (LDB-REF23600 ':INT32)
                              (BETA-REF23601 ':DOUBLE) (LDC-REF23603 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23593 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23594 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23595 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23596 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23598 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23600 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23601 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23603 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23597 A) (B-REF23599 B)
                                            (C-REF23602 C))
      (%%DGEMM TRANSA TRANSB M-REF23593 N-REF23594 K-REF23595 ALPHA-REF23596
       A-REF23597 LDA-REF23598 B-REF23599 LDB-REF23600 BETA-REF23601 C-REF23602
       LDC-REF23603))))

(CFFI:DEFCFUN ("dgemv_" %%DGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DGEMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23605 ':INT32) (N-REF23606 ':INT32)
                              (ALPHA-REF23607 ':DOUBLE) (LDA-REF23609 ':INT32)
                              (INCX-REF23611 ':INT32) (BETA-REF23612 ':DOUBLE)
                              (INCY-REF23614 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23605 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23606 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23607 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23609 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23611 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23612 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23614 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23608 A) (X-REF23610 X)
                                            (Y-REF23613 Y))
      (%%DGEMV TRANS M-REF23605 N-REF23606 ALPHA-REF23607 A-REF23608
       LDA-REF23609 X-REF23610 INCX-REF23611 BETA-REF23612 Y-REF23613
       INCY-REF23614))))

(CFFI:DEFCFUN ("dger_" %%DGER :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DGER (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DGER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23615 ':INT32) (N-REF23616 ':INT32)
                              (ALPHA-REF23617 ':DOUBLE) (INCX-REF23619 ':INT32)
                              (INCY-REF23621 ':INT32) (LDA-REF23623 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23615 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23616 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23617 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23619 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23621 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23623 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23618 X) (Y-REF23620 Y)
                                            (A-REF23622 A))
      (%%DGER M-REF23615 N-REF23616 ALPHA-REF23617 X-REF23618 INCX-REF23619
       Y-REF23620 INCY-REF23621 A-REF23622 LDA-REF23623))))

(CFFI:DEFCFUN ("dnrm2_" %%DNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DNRM2 (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DNRM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23624 ':INT32) (INCX-REF23626 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23624 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23626 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23625 X))
      (%%DNRM2 N-REF23624 X-REF23625 INCX-REF23626))))

(CFFI:DEFCFUN ("drot_" %%DROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %DROT (N DX INCX DY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23627 ':INT32) (INCX-REF23629 ':INT32)
                              (INCY-REF23631 ':INT32) (C-REF23632 ':DOUBLE)
                              (S-REF23633 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23627 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23629 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23631 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23632 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23633 :DOUBLE) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23628 DX) (DY-REF23630 DY))
      (%%DROT N-REF23627 DX-REF23628 INCX-REF23629 DY-REF23630 INCY-REF23631
       C-REF23632 S-REF23633))))

(CFFI:DEFCFUN ("drotg_" %%DROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (DA :POINTER)
  (DB :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %DROTG (DA DB C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DROTG)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((DA-REF23634 ':DOUBLE) (DB-REF23635 ':DOUBLE)
                              (C-REF23636 ':DOUBLE) (S-REF23637 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF23634 :DOUBLE) DA)
    (COMMON-LISP:SETF (CFFI:MEM-REF DB-REF23635 :DOUBLE) DB)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23636 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23637 :DOUBLE) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%DROTG DA-REF23634 DB-REF23635 C-REF23636 S-REF23637))))

(CFFI:DEFCFUN ("drotm_" %%DROTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER)
  (DPARAM :POINTER))

(COMMON-LISP:DEFUN %DROTM (N DX INCX DY INCY DPARAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DROTM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DPARAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23638 ':INT32) (INCX-REF23640 ':INT32)
                              (INCY-REF23642 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23638 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23640 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23642 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23639 DX) (DY-REF23641 DY)
                                            (DPARAM-REF23643 DPARAM))
      (%%DROTM N-REF23638 DX-REF23639 INCX-REF23640 DY-REF23641 INCY-REF23642
       DPARAM-REF23643))))

(CFFI:DEFCFUN ("drotmg_" %%DROTMG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (DD1 :POINTER)
  (DD2 :POINTER)
  (DX1 :POINTER)
  (DY1 :POINTER)
  (DPARAM :POINTER))

(COMMON-LISP:DEFUN %DROTMG (DD1 DD2 DX1 DY1 DPARAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DROTMG)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DD1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DD2)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DX1)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DY1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        DPARAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((DD1-REF23644 ':DOUBLE) (DD2-REF23645 ':DOUBLE)
                              (DX1-REF23646 ':DOUBLE) (DY1-REF23647 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF DD1-REF23644 :DOUBLE) DD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DD2-REF23645 :DOUBLE) DD2)
    (COMMON-LISP:SETF (CFFI:MEM-REF DX1-REF23646 :DOUBLE) DX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF DY1-REF23647 :DOUBLE) DY1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DPARAM-REF23648 DPARAM))
      (%%DROTMG DD1-REF23644 DD2-REF23645 DX1-REF23646 DY1-REF23647
       DPARAM-REF23648))))

(CFFI:DEFCFUN ("dsbmv_" %%DSBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSBMV (UPLO N K ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23650 ':INT32) (K-REF23651 ':INT32)
                              (ALPHA-REF23652 ':DOUBLE) (LDA-REF23654 ':INT32)
                              (INCX-REF23656 ':INT32) (BETA-REF23657 ':DOUBLE)
                              (INCY-REF23659 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23650 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23651 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23652 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23654 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23656 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23657 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23659 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23653 A) (X-REF23655 X)
                                            (Y-REF23658 Y))
      (%%DSBMV UPLO N-REF23650 K-REF23651 ALPHA-REF23652 A-REF23653
       LDA-REF23654 X-REF23655 INCX-REF23656 BETA-REF23657 Y-REF23658
       INCY-REF23659))))

(CFFI:DEFCFUN ("dscal_" %%DSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (DA :POINTER)
  (DX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DSCAL (N DA DX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23660 ':INT32) (DA-REF23661 ':DOUBLE)
                              (INCX-REF23663 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23660 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF23661 :DOUBLE) DA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23663 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23662 DX))
      (%%DSCAL N-REF23660 DA-REF23661 DX-REF23662 INCX-REF23663))))

(CFFI:DEFCFUN ("dsdot_" %%DSDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSDOT (N SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSDOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23664 ':INT32) (INCX-REF23666 ':INT32)
                              (INCY-REF23668 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23664 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23666 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23668 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23665 SX) (SY-REF23667 SY))
      (%%DSDOT N-REF23664 SX-REF23665 INCX-REF23666 SY-REF23667
       INCY-REF23668))))

(CFFI:DEFCFUN ("dspmv_" %%DSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23670 ':INT32) (ALPHA-REF23671 ':DOUBLE)
                              (INCX-REF23674 ':INT32) (BETA-REF23675 ':DOUBLE)
                              (INCY-REF23677 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23670 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23671 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23674 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23675 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23677 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23672 AP) (X-REF23673 X)
                                            (Y-REF23676 Y))
      (%%DSPMV UPLO N-REF23670 ALPHA-REF23671 AP-REF23672 X-REF23673
       INCX-REF23674 BETA-REF23675 Y-REF23676 INCY-REF23677))))

(CFFI:DEFCFUN ("dspr_" %%DSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %DSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23679 ':INT32) (ALPHA-REF23680 ':DOUBLE)
                              (INCX-REF23682 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23679 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23680 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23682 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23681 X) (AP-REF23683 AP))
      (%%DSPR UPLO N-REF23679 ALPHA-REF23680 X-REF23681 INCX-REF23682
       AP-REF23683))))

(CFFI:DEFCFUN ("dspr2_" %%DSPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %DSPR2 (UPLO N ALPHA X INCX Y INCY AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSPR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT)
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23685 ':INT32) (ALPHA-REF23686 ':DOUBLE)
                              (INCX-REF23688 ':INT32) (INCY-REF23690 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23685 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23686 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23688 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23690 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23687 X) (Y-REF23689 Y)
                                            (AP-REF23691 AP))
      (%%DSPR2 UPLO N-REF23685 ALPHA-REF23686 X-REF23687 INCX-REF23688
       Y-REF23689 INCY-REF23690 AP-REF23691))))

(CFFI:DEFCFUN ("dswap_" %%DSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER)
  (DY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSWAP (N DX INCX DY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSWAP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23692 ':INT32) (INCX-REF23694 ':INT32)
                              (INCY-REF23696 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23692 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23694 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23696 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23693 DX) (DY-REF23695 DY))
      (%%DSWAP N-REF23692 DX-REF23693 INCX-REF23694 DY-REF23695
       INCY-REF23696))))

(CFFI:DEFCFUN ("dsymm_" %%DSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %DSYMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23699 ':INT32) (N-REF23700 ':INT32)
                              (ALPHA-REF23701 ':DOUBLE) (LDA-REF23703 ':INT32)
                              (LDB-REF23705 ':INT32) (BETA-REF23706 ':DOUBLE)
                              (LDC-REF23708 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23699 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23700 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23701 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23703 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23705 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23706 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23708 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23702 A) (B-REF23704 B)
                                            (C-REF23707 C))
      (%%DSYMM SIDE UPLO M-REF23699 N-REF23700 ALPHA-REF23701 A-REF23702
       LDA-REF23703 B-REF23704 LDB-REF23705 BETA-REF23706 C-REF23707
       LDC-REF23708))))

(CFFI:DEFCFUN ("dsymv_" %%DSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %DSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23710 ':INT32) (ALPHA-REF23711 ':DOUBLE)
                              (LDA-REF23713 ':INT32) (INCX-REF23715 ':INT32)
                              (BETA-REF23716 ':DOUBLE) (INCY-REF23718 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23710 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23711 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23713 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23715 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23716 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23718 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23712 A) (X-REF23714 X)
                                            (Y-REF23717 Y))
      (%%DSYMV UPLO N-REF23710 ALPHA-REF23711 A-REF23712 LDA-REF23713
       X-REF23714 INCX-REF23715 BETA-REF23716 Y-REF23717 INCY-REF23718))))

(CFFI:DEFCFUN ("dsyr_" %%DSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23720 ':INT32) (ALPHA-REF23721 ':DOUBLE)
                              (INCX-REF23723 ':INT32) (LDA-REF23725 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23720 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23721 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23723 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23725 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23722 X) (A-REF23724 A))
      (%%DSYR UPLO N-REF23720 ALPHA-REF23721 X-REF23722 INCX-REF23723
       A-REF23724 LDA-REF23725))))

(CFFI:DEFCFUN ("dsyr2_" %%DSYR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %DSYR2 (UPLO N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23727 ':INT32) (ALPHA-REF23728 ':DOUBLE)
                              (INCX-REF23730 ':INT32) (INCY-REF23732 ':INT32)
                              (LDA-REF23734 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23727 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23728 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23730 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23732 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23734 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23729 X) (Y-REF23731 Y)
                                            (A-REF23733 A))
      (%%DSYR2 UPLO N-REF23727 ALPHA-REF23728 X-REF23729 INCX-REF23730
       Y-REF23731 INCY-REF23732 A-REF23733 LDA-REF23734))))

(CFFI:DEFCFUN ("dsyr2k_" %%DSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %DSYR2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYR2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23737 ':INT32) (K-REF23738 ':INT32)
                              (ALPHA-REF23739 ':DOUBLE) (LDA-REF23741 ':INT32)
                              (LDB-REF23743 ':INT32) (BETA-REF23744 ':DOUBLE)
                              (LDC-REF23746 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23737 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23738 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23739 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23741 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23743 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23744 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23746 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23740 A) (B-REF23742 B)
                                            (C-REF23745 C))
      (%%DSYR2K UPLO TRANS N-REF23737 K-REF23738 ALPHA-REF23739 A-REF23740
       LDA-REF23741 B-REF23742 LDB-REF23743 BETA-REF23744 C-REF23745
       LDC-REF23746))))

(CFFI:DEFCFUN ("dsyrk_" %%DSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %DSYRK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DSYRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23749 ':INT32) (K-REF23750 ':INT32)
                              (ALPHA-REF23751 ':DOUBLE) (LDA-REF23753 ':INT32)
                              (BETA-REF23754 ':DOUBLE) (LDC-REF23756 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23749 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23750 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23751 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23753 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23754 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23756 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23752 A) (C-REF23755 C))
      (%%DSYRK UPLO TRANS N-REF23749 K-REF23750 ALPHA-REF23751 A-REF23752
       LDA-REF23753 BETA-REF23754 C-REF23755 LDC-REF23756))))

(CFFI:DEFCFUN ("dtbmv_" %%DTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTBMV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23760 ':INT32) (K-REF23761 ':INT32)
                              (LDA-REF23763 ':INT32) (INCX-REF23765 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23760 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23761 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23763 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23765 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23762 A) (X-REF23764 X))
      (%%DTBMV UPLO TRANS DIAG N-REF23760 K-REF23761 A-REF23762 LDA-REF23763
       X-REF23764 INCX-REF23765))))

(CFFI:DEFCFUN ("dtbsv_" %%DTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTBSV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23769 ':INT32) (K-REF23770 ':INT32)
                              (LDA-REF23772 ':INT32) (INCX-REF23774 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23769 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23770 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23772 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23774 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23771 A) (X-REF23773 X))
      (%%DTBSV UPLO TRANS DIAG N-REF23769 K-REF23770 A-REF23771 LDA-REF23772
       X-REF23773 INCX-REF23774))))

(CFFI:DEFCFUN ("dtpmv_" %%DTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTPMV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23778 ':INT32) (INCX-REF23781 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23778 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23781 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23779 AP) (X-REF23780 X))
      (%%DTPMV UPLO TRANS DIAG N-REF23778 AP-REF23779 X-REF23780
       INCX-REF23781))))

(CFFI:DEFCFUN ("dtpsv_" %%DTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTPSV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23785 ':INT32) (INCX-REF23788 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23785 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23788 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23786 AP) (X-REF23787 X))
      (%%DTPSV UPLO TRANS DIAG N-REF23785 AP-REF23786 X-REF23787
       INCX-REF23788))))

(CFFI:DEFCFUN ("dtrmm_" %%DTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DTRMM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23793 ':INT32) (N-REF23794 ':INT32)
                              (ALPHA-REF23795 ':DOUBLE) (LDA-REF23797 ':INT32)
                              (LDB-REF23799 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23793 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23794 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23795 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23797 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23799 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23796 A) (B-REF23798 B))
      (%%DTRMM SIDE UPLO TRANSA DIAG M-REF23793 N-REF23794 ALPHA-REF23795
       A-REF23796 LDA-REF23797 B-REF23798 LDB-REF23799))))

(CFFI:DEFCFUN ("dtrmv_" %%DTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTRMV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23803 ':INT32) (LDA-REF23805 ':INT32)
                              (INCX-REF23807 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23803 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23805 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23807 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23804 A) (X-REF23806 X))
      (%%DTRMV UPLO TRANS DIAG N-REF23803 A-REF23804 LDA-REF23805 X-REF23806
       INCX-REF23807))))

(CFFI:DEFCFUN ("dtrsm_" %%DTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %DTRSM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23812 ':INT32) (N-REF23813 ':INT32)
                              (ALPHA-REF23814 ':DOUBLE) (LDA-REF23816 ':INT32)
                              (LDB-REF23818 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23812 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23813 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23814 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23816 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23818 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23815 A) (B-REF23817 B))
      (%%DTRSM SIDE UPLO TRANSA DIAG M-REF23812 N-REF23813 ALPHA-REF23814
       A-REF23815 LDA-REF23816 B-REF23817 LDB-REF23818))))

(CFFI:DEFCFUN ("dtrsv_" %%DTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DTRSV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DTRSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23822 ':INT32) (LDA-REF23824 ':INT32)
                              (INCX-REF23826 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23822 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23824 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23826 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23823 A) (X-REF23825 X))
      (%%DTRSV UPLO TRANS DIAG N-REF23822 A-REF23823 LDA-REF23824 X-REF23825
       INCX-REF23826))))

(CFFI:DEFCFUN ("dzasum_" %%DZASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DZASUM (N ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DZASUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23827 ':INT32) (INCX-REF23829 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23827 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23829 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF23828 ZX))
      (%%DZASUM N-REF23827 ZX-REF23828 INCX-REF23829))))

(CFFI:DEFCFUN ("dznrm2_" %%DZNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :DOUBLE
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %DZNRM2 (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%DZNRM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23830 ':INT32) (INCX-REF23832 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23830 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23832 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23831 X))
      (%%DZNRM2 N-REF23830 X-REF23831 INCX-REF23832))))

(CFFI:DEFCFUN ("icamax_" %%ICAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :INT32
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ICAMAX (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ICAMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23833 ':INT32) (INCX-REF23835 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23833 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23835 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23834 CX))
      (%%ICAMAX N-REF23833 CX-REF23834 INCX-REF23835))))

(CFFI:DEFCFUN ("idamax_" %%IDAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :INT32
  (N :POINTER)
  (DX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %IDAMAX (N DX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IDAMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:DOUBLE-FLOAT) DX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23836 ':INT32) (INCX-REF23838 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23836 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23838 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((DX-REF23837 DX))
      (%%IDAMAX N-REF23836 DX-REF23837 INCX-REF23838))))

(CFFI:DEFCFUN ("isamax_" %%ISAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :INT32
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ISAMAX (N SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ISAMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23839 ':INT32) (INCX-REF23841 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23839 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23841 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23840 SX))
      (%%ISAMAX N-REF23839 SX-REF23840 INCX-REF23841))))

(CFFI:DEFCFUN ("izamax_" %%IZAMAX :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :INT32
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %IZAMAX (N ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%IZAMAX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23842 ':INT32) (INCX-REF23844 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23842 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23844 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF23843 ZX))
      (%%IZAMAX N-REF23842 ZX-REF23843 INCX-REF23844))))

(CFFI:DEFCFUN ("lsame_" %%LSAME :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :INT32
  (CA :STRING)
  (CB :STRING))

(COMMON-LISP:DEFUN %LSAME (CA CB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%LSAME)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING CA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING CB))
  (CFFI:WITH-FOREIGN-OBJECTS COMMON-LISP:NIL
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%LSAME CA CB))))

(CFFI:DEFCFUN ("sasum_" %%SASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :FLOAT
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SASUM (N SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SASUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23847 ':INT32) (INCX-REF23849 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23847 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23849 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23848 SX))
      (%%SASUM N-REF23847 SX-REF23848 INCX-REF23849))))

(CFFI:DEFCFUN ("saxpy_" %%SAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SAXPY (N SA SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SAXPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23850 ':INT32) (SA-REF23851 ':FLOAT)
                              (INCX-REF23853 ':INT32) (INCY-REF23855 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23850 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF23851 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23853 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23855 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23852 SX) (SY-REF23854 SY))
      (%%SAXPY N-REF23850 SA-REF23851 SX-REF23852 INCX-REF23853 SY-REF23854
       INCY-REF23855))))

(CFFI:DEFCFUN ("scabs1_" %%SCABS1 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :FLOAT
  (Z :POINTER))

(COMMON-LISP:DEFUN %SCABS1 (Z)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCABS1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT) Z))
  (CFFI:WITH-FOREIGN-OBJECTS ((Z-REF23856
                               'MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              Z-REF23856 MAGICL.CFFI-TYPES:COMPLEX-SINGLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART Z)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART Z)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SCABS1 Z-REF23856))))

(CFFI:DEFCFUN ("scasum_" %%SCASUM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :FLOAT
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SCASUM (N CX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCASUM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23857 ':INT32) (INCX-REF23859 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23857 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23859 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF23858 CX))
      (%%SCASUM N-REF23857 CX-REF23858 INCX-REF23859))))

(CFFI:DEFCFUN ("scnrm2_" %%SCNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :FLOAT
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SCNRM2 (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCNRM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:SINGLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23860 ':INT32) (INCX-REF23862 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23860 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23862 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23861 X))
      (%%SCNRM2 N-REF23860 X-REF23861 INCX-REF23862))))

(CFFI:DEFCFUN ("scopy_" %%SCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SCOPY (N SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SCOPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23863 ':INT32) (INCX-REF23865 ':INT32)
                              (INCY-REF23867 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23863 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23865 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23867 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23864 SX) (SY-REF23866 SY))
      (%%SCOPY N-REF23863 SX-REF23864 INCX-REF23865 SY-REF23866
       INCY-REF23867))))

(CFFI:DEFCFUN ("sdot_" %%SDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :FLOAT
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SDOT (N SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SDOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23868 ':INT32) (INCX-REF23870 ':INT32)
                              (INCY-REF23872 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23868 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23870 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23872 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23869 SX) (SY-REF23871 SY))
      (%%SDOT N-REF23868 SX-REF23869 INCX-REF23870 SY-REF23871 INCY-REF23872))))

(CFFI:DEFCFUN ("sdsdot_" %%SDSDOT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :FLOAT
  (N :POINTER)
  (SB :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SDSDOT (N SB SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SDSDOT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23873 ':INT32) (SB-REF23874 ':FLOAT)
                              (INCX-REF23876 ':INT32) (INCY-REF23878 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23873 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SB-REF23874 :FLOAT) SB)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23876 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23878 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23875 SX) (SY-REF23877 SY))
      (%%SDSDOT N-REF23873 SB-REF23874 SX-REF23875 INCX-REF23876 SY-REF23877
       INCY-REF23878))))

(CFFI:DEFCFUN ("sgbmv_" %%SGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SGBMV (TRANS M N KL KU ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23880 ':INT32) (N-REF23881 ':INT32)
                              (KL-REF23882 ':INT32) (KU-REF23883 ':INT32)
                              (ALPHA-REF23884 ':FLOAT) (LDA-REF23886 ':INT32)
                              (INCX-REF23888 ':INT32) (BETA-REF23889 ':FLOAT)
                              (INCY-REF23891 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23880 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23881 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF23882 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF23883 :INT32) KU)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23884 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23886 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23888 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23889 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23891 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23885 A) (X-REF23887 X)
                                            (Y-REF23890 Y))
      (%%SGBMV TRANS M-REF23880 N-REF23881 KL-REF23882 KU-REF23883
       ALPHA-REF23884 A-REF23885 LDA-REF23886 X-REF23887 INCX-REF23888
       BETA-REF23889 Y-REF23890 INCY-REF23891))))

(CFFI:DEFCFUN ("sgemm_" %%SGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANSA :STRING)
  (TRANSB :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %SGEMM (TRANSA TRANSB M N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23894 ':INT32) (N-REF23895 ':INT32)
                              (K-REF23896 ':INT32) (ALPHA-REF23897 ':FLOAT)
                              (LDA-REF23899 ':INT32) (LDB-REF23901 ':INT32)
                              (BETA-REF23902 ':FLOAT) (LDC-REF23904 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23894 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23895 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23896 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23897 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23899 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF23901 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23902 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF23904 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23898 A) (B-REF23900 B)
                                            (C-REF23903 C))
      (%%SGEMM TRANSA TRANSB M-REF23894 N-REF23895 K-REF23896 ALPHA-REF23897
       A-REF23898 LDA-REF23899 B-REF23900 LDB-REF23901 BETA-REF23902 C-REF23903
       LDC-REF23904))))

(CFFI:DEFCFUN ("sgemv_" %%SGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SGEMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23906 ':INT32) (N-REF23907 ':INT32)
                              (ALPHA-REF23908 ':FLOAT) (LDA-REF23910 ':INT32)
                              (INCX-REF23912 ':INT32) (BETA-REF23913 ':FLOAT)
                              (INCY-REF23915 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23906 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23907 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23908 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23910 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23912 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23913 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23915 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23909 A) (X-REF23911 X)
                                            (Y-REF23914 Y))
      (%%SGEMV TRANS M-REF23906 N-REF23907 ALPHA-REF23908 A-REF23909
       LDA-REF23910 X-REF23911 INCX-REF23912 BETA-REF23913 Y-REF23914
       INCY-REF23915))))

(CFFI:DEFCFUN ("sger_" %%SGER :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SGER (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SGER)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23916 ':INT32) (N-REF23917 ':INT32)
                              (ALPHA-REF23918 ':FLOAT) (INCX-REF23920 ':INT32)
                              (INCY-REF23922 ':INT32) (LDA-REF23924 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23916 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23917 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23918 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23920 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23922 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23924 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23919 X) (Y-REF23921 Y)
                                            (A-REF23923 A))
      (%%SGER M-REF23916 N-REF23917 ALPHA-REF23918 X-REF23919 INCX-REF23920
       Y-REF23921 INCY-REF23922 A-REF23923 LDA-REF23924))))

(CFFI:DEFCFUN ("snrm2_" %%SNRM2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :FLOAT
  (N :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SNRM2 (N X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SNRM2)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23925 ':INT32) (INCX-REF23927 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23925 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23927 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23926 X))
      (%%SNRM2 N-REF23925 X-REF23926 INCX-REF23927))))

(CFFI:DEFCFUN ("srot_" %%SROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %SROT (N SX INCX SY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23928 ':INT32) (INCX-REF23930 ':INT32)
                              (INCY-REF23932 ':INT32) (C-REF23933 ':FLOAT)
                              (S-REF23934 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23928 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23930 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23932 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23933 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23934 :FLOAT) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23929 SX) (SY-REF23931 SY))
      (%%SROT N-REF23928 SX-REF23929 INCX-REF23930 SY-REF23931 INCY-REF23932
       C-REF23933 S-REF23934))))

(CFFI:DEFCFUN ("srotg_" %%SROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SA :POINTER)
  (SB :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %SROTG (SA SB C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SROTG)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((SA-REF23935 ':FLOAT) (SB-REF23936 ':FLOAT)
                              (C-REF23937 ':FLOAT) (S-REF23938 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF23935 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF SB-REF23936 :FLOAT) SB)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF23937 :FLOAT) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF23938 :FLOAT) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%SROTG SA-REF23935 SB-REF23936 C-REF23937 S-REF23938))))

(CFFI:DEFCFUN ("srotm_" %%SROTM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER)
  (SPARAM :POINTER))

(COMMON-LISP:DEFUN %SROTM (N SX INCX SY INCY SPARAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SROTM)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SPARAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23939 ':INT32) (INCX-REF23941 ':INT32)
                              (INCY-REF23943 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23939 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23941 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23943 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23940 SX) (SY-REF23942 SY)
                                            (SPARAM-REF23944 SPARAM))
      (%%SROTM N-REF23939 SX-REF23940 INCX-REF23941 SY-REF23942 INCY-REF23943
       SPARAM-REF23944))))

(CFFI:DEFCFUN ("srotmg_" %%SROTMG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SD1 :POINTER)
  (SD2 :POINTER)
  (SX1 :POINTER)
  (SY1 :POINTER)
  (SPARAM :POINTER))

(COMMON-LISP:DEFUN %SROTMG (SD1 SD2 SX1 SY1 SPARAM)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SROTMG)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SD1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SD2)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SX1)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SY1)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        SPARAM))
  (CFFI:WITH-FOREIGN-OBJECTS ((SD1-REF23945 ':FLOAT) (SD2-REF23946 ':FLOAT)
                              (SX1-REF23947 ':FLOAT) (SY1-REF23948 ':FLOAT))
    (COMMON-LISP:SETF (CFFI:MEM-REF SD1-REF23945 :FLOAT) SD1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SD2-REF23946 :FLOAT) SD2)
    (COMMON-LISP:SETF (CFFI:MEM-REF SX1-REF23947 :FLOAT) SX1)
    (COMMON-LISP:SETF (CFFI:MEM-REF SY1-REF23948 :FLOAT) SY1)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SPARAM-REF23949 SPARAM))
      (%%SROTMG SD1-REF23945 SD2-REF23946 SX1-REF23947 SY1-REF23948
       SPARAM-REF23949))))

(CFFI:DEFCFUN ("ssbmv_" %%SSBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SSBMV (UPLO N K ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23951 ':INT32) (K-REF23952 ':INT32)
                              (ALPHA-REF23953 ':FLOAT) (LDA-REF23955 ':INT32)
                              (INCX-REF23957 ':INT32) (BETA-REF23958 ':FLOAT)
                              (INCY-REF23960 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23951 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF23952 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23953 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23955 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23957 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23958 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23960 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23954 A) (X-REF23956 X)
                                            (Y-REF23959 Y))
      (%%SSBMV UPLO N-REF23951 K-REF23952 ALPHA-REF23953 A-REF23954
       LDA-REF23955 X-REF23956 INCX-REF23957 BETA-REF23958 Y-REF23959
       INCY-REF23960))))

(CFFI:DEFCFUN ("sscal_" %%SSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (SA :POINTER)
  (SX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %SSCAL (N SA SX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT SA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23961 ':INT32) (SA-REF23962 ':FLOAT)
                              (INCX-REF23964 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23961 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF SA-REF23962 :FLOAT) SA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23964 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23963 SX))
      (%%SSCAL N-REF23961 SA-REF23962 SX-REF23963 INCX-REF23964))))

(CFFI:DEFCFUN ("sspmv_" %%SSPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SSPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23966 ':INT32) (ALPHA-REF23967 ':FLOAT)
                              (INCX-REF23970 ':INT32) (BETA-REF23971 ':FLOAT)
                              (INCY-REF23973 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23966 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23967 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23970 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF23971 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23973 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF23968 AP) (X-REF23969 X)
                                            (Y-REF23972 Y))
      (%%SSPMV UPLO N-REF23966 ALPHA-REF23967 AP-REF23968 X-REF23969
       INCX-REF23970 BETA-REF23971 Y-REF23972 INCY-REF23973))))

(CFFI:DEFCFUN ("sspr_" %%SSPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %SSPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23975 ':INT32) (ALPHA-REF23976 ':FLOAT)
                              (INCX-REF23978 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23975 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23976 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23978 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23977 X) (AP-REF23979 AP))
      (%%SSPR UPLO N-REF23975 ALPHA-REF23976 X-REF23977 INCX-REF23978
       AP-REF23979))))

(CFFI:DEFCFUN ("sspr2_" %%SSPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %SSPR2 (UPLO N ALPHA X INCX Y INCY AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSPR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT)
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23981 ':INT32) (ALPHA-REF23982 ':FLOAT)
                              (INCX-REF23984 ':INT32) (INCY-REF23986 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23981 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23982 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23984 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23986 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF23983 X) (Y-REF23985 Y)
                                            (AP-REF23987 AP))
      (%%SSPR2 UPLO N-REF23981 ALPHA-REF23982 X-REF23983 INCX-REF23984
       Y-REF23985 INCY-REF23986 AP-REF23987))))

(CFFI:DEFCFUN ("sswap_" %%SSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (SX :POINTER)
  (INCX :POINTER)
  (SY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SSWAP (N SX INCX SY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSWAP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) SY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF23988 ':INT32) (INCX-REF23990 ':INT32)
                              (INCY-REF23992 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23988 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF23990 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF23992 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SX-REF23989 SX) (SY-REF23991 SY))
      (%%SSWAP N-REF23988 SX-REF23989 INCX-REF23990 SY-REF23991
       INCY-REF23992))))

(CFFI:DEFCFUN ("ssymm_" %%SSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %SSYMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF23995 ':INT32) (N-REF23996 ':INT32)
                              (ALPHA-REF23997 ':FLOAT) (LDA-REF23999 ':INT32)
                              (LDB-REF24001 ':INT32) (BETA-REF24002 ':FLOAT)
                              (LDC-REF24004 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF23995 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF23996 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF23997 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF23999 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24001 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24002 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24004 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF23998 A) (B-REF24000 B)
                                            (C-REF24003 C))
      (%%SSYMM SIDE UPLO M-REF23995 N-REF23996 ALPHA-REF23997 A-REF23998
       LDA-REF23999 B-REF24000 LDB-REF24001 BETA-REF24002 C-REF24003
       LDC-REF24004))))

(CFFI:DEFCFUN ("ssymv_" %%SSYMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %SSYMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24006 ':INT32) (ALPHA-REF24007 ':FLOAT)
                              (LDA-REF24009 ':INT32) (INCX-REF24011 ':INT32)
                              (BETA-REF24012 ':FLOAT) (INCY-REF24014 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24006 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24007 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24009 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24011 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24012 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24014 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24008 A) (X-REF24010 X)
                                            (Y-REF24013 Y))
      (%%SSYMV UPLO N-REF24006 ALPHA-REF24007 A-REF24008 LDA-REF24009
       X-REF24010 INCX-REF24011 BETA-REF24012 Y-REF24013 INCY-REF24014))))

(CFFI:DEFCFUN ("ssyr_" %%SSYR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SSYR (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24016 ':INT32) (ALPHA-REF24017 ':FLOAT)
                              (INCX-REF24019 ':INT32) (LDA-REF24021 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24016 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24017 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24019 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24021 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24018 X) (A-REF24020 A))
      (%%SSYR UPLO N-REF24016 ALPHA-REF24017 X-REF24018 INCX-REF24019
       A-REF24020 LDA-REF24021))))

(CFFI:DEFCFUN ("ssyr2_" %%SSYR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %SSYR2 (UPLO N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24023 ':INT32) (ALPHA-REF24024 ':FLOAT)
                              (INCX-REF24026 ':INT32) (INCY-REF24028 ':INT32)
                              (LDA-REF24030 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24023 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24024 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24026 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24028 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24030 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24025 X) (Y-REF24027 Y)
                                            (A-REF24029 A))
      (%%SSYR2 UPLO N-REF24023 ALPHA-REF24024 X-REF24025 INCX-REF24026
       Y-REF24027 INCY-REF24028 A-REF24029 LDA-REF24030))))

(CFFI:DEFCFUN ("ssyr2k_" %%SSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %SSYR2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYR2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24033 ':INT32) (K-REF24034 ':INT32)
                              (ALPHA-REF24035 ':FLOAT) (LDA-REF24037 ':INT32)
                              (LDB-REF24039 ':INT32) (BETA-REF24040 ':FLOAT)
                              (LDC-REF24042 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24033 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24034 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24035 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24037 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24039 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24040 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24042 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24036 A) (B-REF24038 B)
                                            (C-REF24041 C))
      (%%SSYR2K UPLO TRANS N-REF24033 K-REF24034 ALPHA-REF24035 A-REF24036
       LDA-REF24037 B-REF24038 LDB-REF24039 BETA-REF24040 C-REF24041
       LDC-REF24042))))

(CFFI:DEFCFUN ("ssyrk_" %%SSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %SSYRK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%SSYRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24045 ':INT32) (K-REF24046 ':INT32)
                              (ALPHA-REF24047 ':FLOAT) (LDA-REF24049 ':INT32)
                              (BETA-REF24050 ':FLOAT) (LDC-REF24052 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24045 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24046 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24047 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24049 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24050 :FLOAT) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24052 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24048 A) (C-REF24051 C))
      (%%SSYRK UPLO TRANS N-REF24045 K-REF24046 ALPHA-REF24047 A-REF24048
       LDA-REF24049 BETA-REF24050 C-REF24051 LDC-REF24052))))

(CFFI:DEFCFUN ("stbmv_" %%STBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STBMV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24056 ':INT32) (K-REF24057 ':INT32)
                              (LDA-REF24059 ':INT32) (INCX-REF24061 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24056 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24057 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24059 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24061 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24058 A) (X-REF24060 X))
      (%%STBMV UPLO TRANS DIAG N-REF24056 K-REF24057 A-REF24058 LDA-REF24059
       X-REF24060 INCX-REF24061))))

(CFFI:DEFCFUN ("stbsv_" %%STBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STBSV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24065 ':INT32) (K-REF24066 ':INT32)
                              (LDA-REF24068 ':INT32) (INCX-REF24070 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24065 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24066 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24068 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24070 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24067 A) (X-REF24069 X))
      (%%STBSV UPLO TRANS DIAG N-REF24065 K-REF24066 A-REF24067 LDA-REF24068
       X-REF24069 INCX-REF24070))))

(CFFI:DEFCFUN ("stpmv_" %%STPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STPMV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24074 ':INT32) (INCX-REF24077 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24074 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24077 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24075 AP) (X-REF24076 X))
      (%%STPMV UPLO TRANS DIAG N-REF24074 AP-REF24075 X-REF24076
       INCX-REF24077))))

(CFFI:DEFCFUN ("stpsv_" %%STPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STPSV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24081 ':INT32) (INCX-REF24084 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24081 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24084 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24082 AP) (X-REF24083 X))
      (%%STPSV UPLO TRANS DIAG N-REF24081 AP-REF24082 X-REF24083
       INCX-REF24084))))

(CFFI:DEFCFUN ("strmm_" %%STRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %STRMM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24089 ':INT32) (N-REF24090 ':INT32)
                              (ALPHA-REF24091 ':FLOAT) (LDA-REF24093 ':INT32)
                              (LDB-REF24095 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24089 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24090 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24091 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24093 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24095 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24092 A) (B-REF24094 B))
      (%%STRMM SIDE UPLO TRANSA DIAG M-REF24089 N-REF24090 ALPHA-REF24091
       A-REF24092 LDA-REF24093 B-REF24094 LDB-REF24095))))

(CFFI:DEFCFUN ("strmv_" %%STRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STRMV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24099 ':INT32) (LDA-REF24101 ':INT32)
                              (INCX-REF24103 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24099 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24101 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24103 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24100 A) (X-REF24102 X))
      (%%STRMV UPLO TRANS DIAG N-REF24099 A-REF24100 LDA-REF24101 X-REF24102
       INCX-REF24103))))

(CFFI:DEFCFUN ("strsm_" %%STRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %STRSM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:SINGLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24108 ':INT32) (N-REF24109 ':INT32)
                              (ALPHA-REF24110 ':FLOAT) (LDA-REF24112 ':INT32)
                              (LDB-REF24114 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24108 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24109 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24110 :FLOAT) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24112 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24114 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24111 A) (B-REF24113 B))
      (%%STRSM SIDE UPLO TRANSA DIAG M-REF24108 N-REF24109 ALPHA-REF24110
       A-REF24111 LDA-REF24112 B-REF24113 LDB-REF24114))))

(CFFI:DEFCFUN ("strsv_" %%STRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %STRSV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%STRSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY COMMON-LISP:SINGLE-FLOAT) X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24118 ':INT32) (LDA-REF24120 ':INT32)
                              (INCX-REF24122 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24118 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24120 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24122 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24119 A) (X-REF24121 X))
      (%%STRSV UPLO TRANS DIAG N-REF24118 A-REF24119 LDA-REF24120 X-REF24121
       INCX-REF24122))))

(CFFI:DEFCFUN ("xerbla_" %%XERBLA :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SRNAME :STRING)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %XERBLA (SRNAME INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SRNAME)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((INFO-REF24124 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24124 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%XERBLA SRNAME INFO-REF24124))))

(CFFI:DEFCFUN ("xerbla_array_" %%XERBLA_ARRAY :LIBRARY
               MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SRNAME_ARRAY :POINTER)
  (SRNAME_LEN :POINTER)
  (INFO :POINTER))

(COMMON-LISP:DEFUN %XERBLA_ARRAY (SRNAME_ARRAY SRNAME_LEN INFO)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%XERBLA_ARRAY)
                       (COMMON-LISP:TYPE COMMON-LISP:ARRAY SRNAME_ARRAY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32)
                        SRNAME_LEN)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INFO))
  (CFFI:WITH-FOREIGN-OBJECTS ((SRNAME_LEN-REF24126 ':INT32)
                              (INFO-REF24127 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF SRNAME_LEN-REF24126 :INT32) SRNAME_LEN)
    (COMMON-LISP:SETF (CFFI:MEM-REF INFO-REF24127 :INT32) INFO)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((SRNAME_ARRAY-REF24125
                                             SRNAME_ARRAY))
      (%%XERBLA_ARRAY SRNAME_ARRAY-REF24125 SRNAME_LEN-REF24126
       INFO-REF24127))))

(CFFI:DEFCFUN ("zaxpy_" %%ZAXPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (ZA :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZAXPY (N ZA ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZAXPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ZA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24128 ':INT32)
                              (ZA-REF24129
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF24131 ':INT32) (INCY-REF24133 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24128 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ZA-REF24129
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ZA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ZA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24131 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24133 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24130 ZX) (ZY-REF24132 ZY))
      (%%ZAXPY N-REF24128 ZA-REF24129 ZX-REF24130 INCX-REF24131 ZY-REF24132
       INCY-REF24133))))

(CFFI:DEFCFUN ("zcopy_" %%ZCOPY :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZCOPY (N ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZCOPY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24134 ':INT32) (INCX-REF24136 ':INT32)
                              (INCY-REF24138 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24134 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24136 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24138 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24135 ZX) (ZY-REF24137 ZY))
      (%%ZCOPY N-REF24134 ZX-REF24135 INCX-REF24136 ZY-REF24137
       INCY-REF24138))))

(CFFI:DEFCFUN ("zdotc_" %%ZDOTC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZDOTC (N ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDOTC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24139 ':INT32) (INCX-REF24141 ':INT32)
                              (INCY-REF24143 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24139 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24141 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24143 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24140 ZX) (ZY-REF24142 ZY))
      (%%ZDOTC N-REF24139 ZX-REF24140 INCX-REF24141 ZY-REF24142
       INCY-REF24143))))

(CFFI:DEFCFUN ("zdotu_" %%ZDOTU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZDOTU (N ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDOTU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24144 ':INT32) (INCX-REF24146 ':INT32)
                              (INCY-REF24148 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24144 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24146 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24148 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24145 ZX) (ZY-REF24147 ZY))
      (%%ZDOTU N-REF24144 ZX-REF24145 INCX-REF24146 ZY-REF24147
       INCY-REF24148))))

(CFFI:DEFCFUN ("zdrot_" %%ZDROT :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (CX :POINTER)
  (INCX :POINTER)
  (CY :POINTER)
  (INCY :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %ZDROT (N CX INCX CY INCY C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDROT)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        CY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT S))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24149 ':INT32) (INCX-REF24151 ':INT32)
                              (INCY-REF24153 ':INT32) (C-REF24154 ':DOUBLE)
                              (S-REF24155 ':DOUBLE))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24149 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24151 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24153 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF24154 :DOUBLE) C)
    (COMMON-LISP:SETF (CFFI:MEM-REF S-REF24155 :DOUBLE) S)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((CX-REF24150 CX) (CY-REF24152 CY))
      (%%ZDROT N-REF24149 CX-REF24150 INCX-REF24151 CY-REF24152 INCY-REF24153
       C-REF24154 S-REF24155))))

(CFFI:DEFCFUN ("zdscal_" %%ZDSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (DA :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZDSCAL (N DA ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZDSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT DA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24156 ':INT32) (DA-REF24157 ':DOUBLE)
                              (INCX-REF24159 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24156 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF DA-REF24157 :DOUBLE) DA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24159 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24158 ZX))
      (%%ZDSCAL N-REF24156 DA-REF24157 ZX-REF24158 INCX-REF24159))))

(CFFI:DEFCFUN ("zgbmv_" %%ZGBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (KL :POINTER)
  (KU :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZGBMV (TRANS M N KL KU ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) KU)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24161 ':INT32) (N-REF24162 ':INT32)
                              (KL-REF24163 ':INT32) (KU-REF24164 ':INT32)
                              (ALPHA-REF24165
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24167 ':INT32) (INCX-REF24169 ':INT32)
                              (BETA-REF24170
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF24172 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24161 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24162 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF KL-REF24163 :INT32) KL)
    (COMMON-LISP:SETF (CFFI:MEM-REF KU-REF24164 :INT32) KU)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24165
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24167 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24169 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24170
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24172 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24166 A) (X-REF24168 X)
                                            (Y-REF24171 Y))
      (%%ZGBMV TRANS M-REF24161 N-REF24162 KL-REF24163 KU-REF24164
       ALPHA-REF24165 A-REF24166 LDA-REF24167 X-REF24168 INCX-REF24169
       BETA-REF24170 Y-REF24171 INCY-REF24172))))

(CFFI:DEFCFUN ("zgemm_" %%ZGEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANSA :STRING)
  (TRANSB :STRING)
  (M :POINTER)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZGEMM (TRANSA TRANSB M N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSB)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24175 ':INT32) (N-REF24176 ':INT32)
                              (K-REF24177 ':INT32)
                              (ALPHA-REF24178
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24180 ':INT32) (LDB-REF24182 ':INT32)
                              (BETA-REF24183
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF24185 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24175 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24176 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24177 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24178
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24180 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24182 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24183
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24185 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24179 A) (B-REF24181 B)
                                            (C-REF24184 C))
      (%%ZGEMM TRANSA TRANSB M-REF24175 N-REF24176 K-REF24177 ALPHA-REF24178
       A-REF24179 LDA-REF24180 B-REF24181 LDB-REF24182 BETA-REF24183 C-REF24184
       LDC-REF24185))))

(CFFI:DEFCFUN ("zgemv_" %%ZGEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (TRANS :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZGEMV (TRANS M N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24187 ':INT32) (N-REF24188 ':INT32)
                              (ALPHA-REF24189
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24191 ':INT32) (INCX-REF24193 ':INT32)
                              (BETA-REF24194
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF24196 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24187 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24188 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24189
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24191 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24193 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24194
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24196 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24190 A) (X-REF24192 X)
                                            (Y-REF24195 Y))
      (%%ZGEMV TRANS M-REF24187 N-REF24188 ALPHA-REF24189 A-REF24190
       LDA-REF24191 X-REF24192 INCX-REF24193 BETA-REF24194 Y-REF24195
       INCY-REF24196))))

(CFFI:DEFCFUN ("zgerc_" %%ZGERC :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZGERC (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERC)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24197 ':INT32) (N-REF24198 ':INT32)
                              (ALPHA-REF24199
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF24201 ':INT32) (INCY-REF24203 ':INT32)
                              (LDA-REF24205 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24197 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24198 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24199
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24201 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24203 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24205 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24200 X) (Y-REF24202 Y)
                                            (A-REF24204 A))
      (%%ZGERC M-REF24197 N-REF24198 ALPHA-REF24199 X-REF24200 INCX-REF24201
       Y-REF24202 INCY-REF24203 A-REF24204 LDA-REF24205))))

(CFFI:DEFCFUN ("zgeru_" %%ZGERU :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZGERU (M N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZGERU)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24206 ':INT32) (N-REF24207 ':INT32)
                              (ALPHA-REF24208
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF24210 ':INT32) (INCY-REF24212 ':INT32)
                              (LDA-REF24214 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24206 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24207 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24208
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24210 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24212 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24214 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24209 X) (Y-REF24211 Y)
                                            (A-REF24213 A))
      (%%ZGERU M-REF24206 N-REF24207 ALPHA-REF24208 X-REF24209 INCX-REF24210
       Y-REF24211 INCY-REF24212 A-REF24213 LDA-REF24214))))

(CFFI:DEFCFUN ("zhbmv_" %%ZHBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZHBMV (UPLO N K ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24216 ':INT32) (K-REF24217 ':INT32)
                              (ALPHA-REF24218
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24220 ':INT32) (INCX-REF24222 ':INT32)
                              (BETA-REF24223
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF24225 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24216 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24217 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24218
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24220 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24222 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24223
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24225 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24219 A) (X-REF24221 X)
                                            (Y-REF24224 Y))
      (%%ZHBMV UPLO N-REF24216 K-REF24217 ALPHA-REF24218 A-REF24219
       LDA-REF24220 X-REF24221 INCX-REF24222 BETA-REF24223 Y-REF24224
       INCY-REF24225))))

(CFFI:DEFCFUN ("zhemm_" %%ZHEMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZHEMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24228 ':INT32) (N-REF24229 ':INT32)
                              (ALPHA-REF24230
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24232 ':INT32) (LDB-REF24234 ':INT32)
                              (BETA-REF24235
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF24237 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24228 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24229 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24230
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24232 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24234 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24235
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24237 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24231 A) (B-REF24233 B)
                                            (C-REF24236 C))
      (%%ZHEMM SIDE UPLO M-REF24228 N-REF24229 ALPHA-REF24230 A-REF24231
       LDA-REF24232 B-REF24233 LDB-REF24234 BETA-REF24235 C-REF24236
       LDC-REF24237))))

(CFFI:DEFCFUN ("zhemv_" %%ZHEMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZHEMV (UPLO N ALPHA A LDA X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHEMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24239 ':INT32)
                              (ALPHA-REF24240
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24242 ':INT32) (INCX-REF24244 ':INT32)
                              (BETA-REF24245
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF24247 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24239 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24240
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24242 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24244 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24245
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24247 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24241 A) (X-REF24243 X)
                                            (Y-REF24246 Y))
      (%%ZHEMV UPLO N-REF24239 ALPHA-REF24240 A-REF24241 LDA-REF24242
       X-REF24243 INCX-REF24244 BETA-REF24245 Y-REF24246 INCY-REF24247))))

(CFFI:DEFCFUN ("zher_" %%ZHER :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZHER (UPLO N ALPHA X INCX A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHER)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24249 ':INT32) (ALPHA-REF24250 ':DOUBLE)
                              (INCX-REF24252 ':INT32) (LDA-REF24254 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24249 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24250 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24252 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24254 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24251 X) (A-REF24253 A))
      (%%ZHER UPLO N-REF24249 ALPHA-REF24250 X-REF24251 INCX-REF24252
       A-REF24253 LDA-REF24254))))

(CFFI:DEFCFUN ("zher2_" %%ZHER2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (A :POINTER)
  (LDA :POINTER))

(COMMON-LISP:DEFUN %ZHER2 (UPLO N ALPHA X INCX Y INCY A LDA)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHER2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24256 ':INT32)
                              (ALPHA-REF24257
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF24259 ':INT32) (INCY-REF24261 ':INT32)
                              (LDA-REF24263 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24256 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24257
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24259 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24261 :INT32) INCY)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24263 :INT32) LDA)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24258 X) (Y-REF24260 Y)
                                            (A-REF24262 A))
      (%%ZHER2 UPLO N-REF24256 ALPHA-REF24257 X-REF24258 INCX-REF24259
       Y-REF24260 INCY-REF24261 A-REF24262 LDA-REF24263))))

(CFFI:DEFCFUN ("zher2k_" %%ZHER2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZHER2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHER2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24266 ':INT32) (K-REF24267 ':INT32)
                              (ALPHA-REF24268
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24270 ':INT32) (LDB-REF24272 ':INT32)
                              (BETA-REF24273 ':DOUBLE) (LDC-REF24275 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24266 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24267 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24268
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24270 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24272 :INT32) LDB)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24273 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24275 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24269 A) (B-REF24271 B)
                                            (C-REF24274 C))
      (%%ZHER2K UPLO TRANS N-REF24266 K-REF24267 ALPHA-REF24268 A-REF24269
       LDA-REF24270 B-REF24271 LDB-REF24272 BETA-REF24273 C-REF24274
       LDC-REF24275))))

(CFFI:DEFCFUN ("zherk_" %%ZHERK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZHERK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHERK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24278 ':INT32) (K-REF24279 ':INT32)
                              (ALPHA-REF24280 ':DOUBLE) (LDA-REF24282 ':INT32)
                              (BETA-REF24283 ':DOUBLE) (LDC-REF24285 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24278 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24279 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24280 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24282 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF BETA-REF24283 :DOUBLE) BETA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24285 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24281 A) (C-REF24284 C))
      (%%ZHERK UPLO TRANS N-REF24278 K-REF24279 ALPHA-REF24280 A-REF24281
       LDA-REF24282 BETA-REF24283 C-REF24284 LDC-REF24285))))

(CFFI:DEFCFUN ("zhpmv_" %%ZHPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (BETA :POINTER)
  (Y :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZHPMV (UPLO N ALPHA AP X INCX BETA Y INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24287 ':INT32)
                              (ALPHA-REF24288
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF24291 ':INT32)
                              (BETA-REF24292
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCY-REF24294 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24287 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24288
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24291 :INT32) INCX)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24292
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24294 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24289 AP) (X-REF24290 X)
                                            (Y-REF24293 Y))
      (%%ZHPMV UPLO N-REF24287 ALPHA-REF24288 AP-REF24289 X-REF24290
       INCX-REF24291 BETA-REF24292 Y-REF24293 INCY-REF24294))))

(CFFI:DEFCFUN ("zhpr_" %%ZHPR :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %ZHPR (UPLO N ALPHA X INCX AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPR)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24296 ':INT32) (ALPHA-REF24297 ':DOUBLE)
                              (INCX-REF24299 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24296 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF ALPHA-REF24297 :DOUBLE) ALPHA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24299 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24298 X) (AP-REF24300 AP))
      (%%ZHPR UPLO N-REF24296 ALPHA-REF24297 X-REF24298 INCX-REF24299
       AP-REF24300))))

(CFFI:DEFCFUN ("zhpr2_" %%ZHPR2 :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (N :POINTER)
  (ALPHA :POINTER)
  (X :POINTER)
  (INCX :POINTER)
  (Y :POINTER)
  (INCY :POINTER)
  (AP :POINTER))

(COMMON-LISP:DEFUN %ZHPR2 (UPLO N ALPHA X INCX Y INCY AP)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZHPR2)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        Y)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24302 ':INT32)
                              (ALPHA-REF24303
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF24305 ':INT32) (INCY-REF24307 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24302 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24303
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24305 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24307 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((X-REF24304 X) (Y-REF24306 Y)
                                            (AP-REF24308 AP))
      (%%ZHPR2 UPLO N-REF24302 ALPHA-REF24303 X-REF24304 INCX-REF24305
       Y-REF24306 INCY-REF24307 AP-REF24308))))

(CFFI:DEFCFUN ("zrotg_" %%ZROTG :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (CA :POINTER)
  (CB :POINTER)
  (C :POINTER)
  (S :POINTER))

(COMMON-LISP:DEFUN %ZROTG (CA CB C S)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZROTG)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) CA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) CB)
                       (COMMON-LISP:TYPE COMMON-LISP:DOUBLE-FLOAT C)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) S))
  (CFFI:WITH-FOREIGN-OBJECTS ((CA-REF24309
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (CB-REF24310
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (C-REF24311 ':DOUBLE)
                              (S-REF24312
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CA-REF24309
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CA)))
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              CB-REF24310
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART CB)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART CB)))
    (COMMON-LISP:SETF (CFFI:MEM-REF C-REF24311 :DOUBLE) C)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              S-REF24312 MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART S)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART S)))
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS COMMON-LISP:NIL
      (%%ZROTG CA-REF24309 CB-REF24310 C-REF24311 S-REF24312))))

(CFFI:DEFCFUN ("zscal_" %%ZSCAL :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (ZA :POINTER)
  (ZX :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZSCAL (N ZA ZX INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSCAL)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ZA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24313 ':INT32)
                              (ZA-REF24314
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (INCX-REF24316 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24313 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ZA-REF24314
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ZA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ZA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24316 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24315 ZX))
      (%%ZSCAL N-REF24313 ZA-REF24314 ZX-REF24315 INCX-REF24316))))

(CFFI:DEFCFUN ("zswap_" %%ZSWAP :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (N :POINTER)
  (ZX :POINTER)
  (INCX :POINTER)
  (ZY :POINTER)
  (INCY :POINTER))

(COMMON-LISP:DEFUN %ZSWAP (N ZX INCX ZY INCY)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSWAP)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZX)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        ZY)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCY))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24317 ':INT32) (INCX-REF24319 ':INT32)
                              (INCY-REF24321 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24317 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24319 :INT32) INCX)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCY-REF24321 :INT32) INCY)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((ZX-REF24318 ZX) (ZY-REF24320 ZY))
      (%%ZSWAP N-REF24317 ZX-REF24318 INCX-REF24319 ZY-REF24320
       INCY-REF24321))))

(CFFI:DEFCFUN ("zsymm_" %%ZSYMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZSYMM (SIDE UPLO M N ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24324 ':INT32) (N-REF24325 ':INT32)
                              (ALPHA-REF24326
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24328 ':INT32) (LDB-REF24330 ':INT32)
                              (BETA-REF24331
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF24333 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24324 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24325 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24326
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24328 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24330 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24331
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24333 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24327 A) (B-REF24329 B)
                                            (C-REF24332 C))
      (%%ZSYMM SIDE UPLO M-REF24324 N-REF24325 ALPHA-REF24326 A-REF24327
       LDA-REF24328 B-REF24329 LDB-REF24330 BETA-REF24331 C-REF24332
       LDC-REF24333))))

(CFFI:DEFCFUN ("zsyr2k_" %%ZSYR2K :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZSYR2K (UPLO TRANS N K ALPHA A LDA B LDB BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYR2K)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24336 ':INT32) (K-REF24337 ':INT32)
                              (ALPHA-REF24338
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24340 ':INT32) (LDB-REF24342 ':INT32)
                              (BETA-REF24343
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF24345 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24336 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24337 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24338
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24340 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24342 :INT32) LDB)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24343
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24345 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24339 A) (B-REF24341 B)
                                            (C-REF24344 C))
      (%%ZSYR2K UPLO TRANS N-REF24336 K-REF24337 ALPHA-REF24338 A-REF24339
       LDA-REF24340 B-REF24341 LDB-REF24342 BETA-REF24343 C-REF24344
       LDC-REF24345))))

(CFFI:DEFCFUN ("zsyrk_" %%ZSYRK :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (N :POINTER)
  (K :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (BETA :POINTER)
  (C :POINTER)
  (LDC :POINTER))

(COMMON-LISP:DEFUN %ZSYRK (UPLO TRANS N K ALPHA A LDA BETA C LDC)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZSYRK)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) BETA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        C)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDC))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24348 ':INT32) (K-REF24349 ':INT32)
                              (ALPHA-REF24350
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24352 ':INT32)
                              (BETA-REF24353
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDC-REF24355 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24348 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24349 :INT32) K)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24350
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24352 :INT32) LDA)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              BETA-REF24353
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART BETA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART BETA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDC-REF24355 :INT32) LDC)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24351 A) (C-REF24354 C))
      (%%ZSYRK UPLO TRANS N-REF24348 K-REF24349 ALPHA-REF24350 A-REF24351
       LDA-REF24352 BETA-REF24353 C-REF24354 LDC-REF24355))))

(CFFI:DEFCFUN ("ztbmv_" %%ZTBMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTBMV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24359 ':INT32) (K-REF24360 ':INT32)
                              (LDA-REF24362 ':INT32) (INCX-REF24364 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24359 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24360 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24362 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24364 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24361 A) (X-REF24363 X))
      (%%ZTBMV UPLO TRANS DIAG N-REF24359 K-REF24360 A-REF24361 LDA-REF24362
       X-REF24363 INCX-REF24364))))

(CFFI:DEFCFUN ("ztbsv_" %%ZTBSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (K :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTBSV (UPLO TRANS DIAG N K A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTBSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) K)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24368 ':INT32) (K-REF24369 ':INT32)
                              (LDA-REF24371 ':INT32) (INCX-REF24373 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24368 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF K-REF24369 :INT32) K)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24371 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24373 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24370 A) (X-REF24372 X))
      (%%ZTBSV UPLO TRANS DIAG N-REF24368 K-REF24369 A-REF24370 LDA-REF24371
       X-REF24372 INCX-REF24373))))

(CFFI:DEFCFUN ("ztpmv_" %%ZTPMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTPMV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24377 ':INT32) (INCX-REF24380 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24377 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24380 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24378 AP) (X-REF24379 X))
      (%%ZTPMV UPLO TRANS DIAG N-REF24377 AP-REF24378 X-REF24379
       INCX-REF24380))))

(CFFI:DEFCFUN ("ztpsv_" %%ZTPSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (AP :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTPSV (UPLO TRANS DIAG N AP X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTPSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        AP)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24384 ':INT32) (INCX-REF24387 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24384 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24387 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((AP-REF24385 AP) (X-REF24386 X))
      (%%ZTPSV UPLO TRANS DIAG N-REF24384 AP-REF24385 X-REF24386
       INCX-REF24387))))

(CFFI:DEFCFUN ("ztrmm_" %%ZTRMM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZTRMM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRMM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24392 ':INT32) (N-REF24393 ':INT32)
                              (ALPHA-REF24394
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24396 ':INT32) (LDB-REF24398 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24392 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24393 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24394
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24396 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24398 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24395 A) (B-REF24397 B))
      (%%ZTRMM SIDE UPLO TRANSA DIAG M-REF24392 N-REF24393 ALPHA-REF24394
       A-REF24395 LDA-REF24396 B-REF24397 LDB-REF24398))))

(CFFI:DEFCFUN ("ztrmv_" %%ZTRMV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTRMV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRMV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24402 ':INT32) (LDA-REF24404 ':INT32)
                              (INCX-REF24406 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24402 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24404 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24406 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24403 A) (X-REF24405 X))
      (%%ZTRMV UPLO TRANS DIAG N-REF24402 A-REF24403 LDA-REF24404 X-REF24405
       INCX-REF24406))))

(CFFI:DEFCFUN ("ztrsm_" %%ZTRSM :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (SIDE :STRING)
  (UPLO :STRING)
  (TRANSA :STRING)
  (DIAG :STRING)
  (M :POINTER)
  (N :POINTER)
  (ALPHA :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (B :POINTER)
  (LDB :POINTER))

(COMMON-LISP:DEFUN %ZTRSM (SIDE UPLO TRANSA DIAG M N ALPHA A LDA B LDB)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSM)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING SIDE)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANSA)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) M)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT) ALPHA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        B)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDB))
  (CFFI:WITH-FOREIGN-OBJECTS ((M-REF24411 ':INT32) (N-REF24412 ':INT32)
                              (ALPHA-REF24413
                               'MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
                              (LDA-REF24415 ':INT32) (LDB-REF24417 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF M-REF24411 :INT32) M)
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24412 :INT32) N)
    (CFFI:WITH-FOREIGN-SLOTS ((COMMON-LISP:REAL MAGICL.CFFI-TYPES::IMAG)
                              ALPHA-REF24413
                              MAGICL.CFFI-TYPES:COMPLEX-DOUBLE-FLOAT)
      (COMMON-LISP:SETF COMMON-LISP:REAL (COMMON-LISP:REALPART ALPHA)
                        MAGICL.CFFI-TYPES::IMAG (COMMON-LISP:IMAGPART ALPHA)))
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24415 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDB-REF24417 :INT32) LDB)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24414 A) (B-REF24416 B))
      (%%ZTRSM SIDE UPLO TRANSA DIAG M-REF24411 N-REF24412 ALPHA-REF24413
       A-REF24414 LDA-REF24415 B-REF24416 LDB-REF24417))))

(CFFI:DEFCFUN ("ztrsv_" %%ZTRSV :LIBRARY MAGICL.FOREIGN-LIBRARIES::LIBBLAS)
    :VOID
  (UPLO :STRING)
  (TRANS :STRING)
  (DIAG :STRING)
  (N :POINTER)
  (A :POINTER)
  (LDA :POINTER)
  (X :POINTER)
  (INCX :POINTER))

(COMMON-LISP:DEFUN %ZTRSV (UPLO TRANS DIAG N A LDA X INCX)
  (COMMON-LISP:DECLARE (COMMON-LISP:INLINE %%ZTRSV)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING UPLO)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING TRANS)
                       (COMMON-LISP:TYPE COMMON-LISP:STRING DIAG)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) N)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        A)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) LDA)
                       (COMMON-LISP:TYPE
                        (COMMON-LISP:SIMPLE-ARRAY
                         (COMMON-LISP:COMPLEX COMMON-LISP:DOUBLE-FLOAT)
                         (COMMON-LISP:*))
                        X)
                       (COMMON-LISP:TYPE (COMMON-LISP:SIGNED-BYTE 32) INCX))
  (CFFI:WITH-FOREIGN-OBJECTS ((N-REF24421 ':INT32) (LDA-REF24423 ':INT32)
                              (INCX-REF24425 ':INT32))
    (COMMON-LISP:SETF (CFFI:MEM-REF N-REF24421 :INT32) N)
    (COMMON-LISP:SETF (CFFI:MEM-REF LDA-REF24423 :INT32) LDA)
    (COMMON-LISP:SETF (CFFI:MEM-REF INCX-REF24425 :INT32) INCX)
    (MAGICL.CFFI-TYPES:WITH-ARRAY-POINTERS ((A-REF24422 A) (X-REF24424 X))
      (%%ZTRSV UPLO TRANS DIAG N-REF24421 A-REF24422 LDA-REF24423 X-REF24424
       INCX-REF24425))))

(COMMON-LISP:DECLAIM
 (COMMON-LISP:NOTINLINE %%CAXPY %CAXPY %%CCOPY %CCOPY %%CDOTC %CDOTC %%CDOTU
  %CDOTU %%CGBMV %CGBMV %%CGEMM %CGEMM %%CGEMV %CGEMV %%CGERC %CGERC %%CGERU
  %CGERU %%CHBMV %CHBMV %%CHEMM %CHEMM %%CHEMV %CHEMV %%CHER %CHER %%CHER2
  %CHER2 %%CHER2K %CHER2K %%CHERK %CHERK %%CHPMV %CHPMV %%CHPR %CHPR %%CHPR2
  %CHPR2 %%CROTG %CROTG %%CSCAL %CSCAL %%CSROT %CSROT %%CSSCAL %CSSCAL %%CSWAP
  %CSWAP %%CSYMM %CSYMM %%CSYR2K %CSYR2K %%CSYRK %CSYRK %%CTBMV %CTBMV %%CTBSV
  %CTBSV %%CTPMV %CTPMV %%CTPSV %CTPSV %%CTRMM %CTRMM %%CTRMV %CTRMV %%CTRSM
  %CTRSM %%CTRSV %CTRSV %%DASUM %DASUM %%DAXPY %DAXPY %%DCABS1 %DCABS1 %%DCOPY
  %DCOPY %%DDOT %DDOT %%DGBMV %DGBMV %%DGEMM %DGEMM %%DGEMV %DGEMV %%DGER %DGER
  %%DNRM2 %DNRM2 %%DROT %DROT %%DROTG %DROTG %%DROTM %DROTM %%DROTMG %DROTMG
  %%DSBMV %DSBMV %%DSCAL %DSCAL %%DSDOT %DSDOT %%DSPMV %DSPMV %%DSPR %DSPR
  %%DSPR2 %DSPR2 %%DSWAP %DSWAP %%DSYMM %DSYMM %%DSYMV %DSYMV %%DSYR %DSYR
  %%DSYR2 %DSYR2 %%DSYR2K %DSYR2K %%DSYRK %DSYRK %%DTBMV %DTBMV %%DTBSV %DTBSV
  %%DTPMV %DTPMV %%DTPSV %DTPSV %%DTRMM %DTRMM %%DTRMV %DTRMV %%DTRSM %DTRSM
  %%DTRSV %DTRSV %%DZASUM %DZASUM %%DZNRM2 %DZNRM2 %%ICAMAX %ICAMAX %%IDAMAX
  %IDAMAX %%ISAMAX %ISAMAX %%IZAMAX %IZAMAX %%LSAME %LSAME %%SASUM %SASUM
  %%SAXPY %SAXPY %%SCABS1 %SCABS1 %%SCASUM %SCASUM %%SCNRM2 %SCNRM2 %%SCOPY
  %SCOPY %%SDOT %SDOT %%SDSDOT %SDSDOT %%SGBMV %SGBMV %%SGEMM %SGEMM %%SGEMV
  %SGEMV %%SGER %SGER %%SNRM2 %SNRM2 %%SROT %SROT %%SROTG %SROTG %%SROTM %SROTM
  %%SROTMG %SROTMG %%SSBMV %SSBMV %%SSCAL %SSCAL %%SSPMV %SSPMV %%SSPR %SSPR
  %%SSPR2 %SSPR2 %%SSWAP %SSWAP %%SSYMM %SSYMM %%SSYMV %SSYMV %%SSYR %SSYR
  %%SSYR2 %SSYR2 %%SSYR2K %SSYR2K %%SSYRK %SSYRK %%STBMV %STBMV %%STBSV %STBSV
  %%STPMV %STPMV %%STPSV %STPSV %%STRMM %STRMM %%STRMV %STRMV %%STRSM %STRSM
  %%STRSV %STRSV %%XERBLA %XERBLA %%XERBLA_ARRAY %XERBLA_ARRAY %%ZAXPY %ZAXPY
  %%ZCOPY %ZCOPY %%ZDOTC %ZDOTC %%ZDOTU %ZDOTU %%ZDROT %ZDROT %%ZDSCAL %ZDSCAL
  %%ZGBMV %ZGBMV %%ZGEMM %ZGEMM %%ZGEMV %ZGEMV %%ZGERC %ZGERC %%ZGERU %ZGERU
  %%ZHBMV %ZHBMV %%ZHEMM %ZHEMM %%ZHEMV %ZHEMV %%ZHER %ZHER %%ZHER2 %ZHER2
  %%ZHER2K %ZHER2K %%ZHERK %ZHERK %%ZHPMV %ZHPMV %%ZHPR %ZHPR %%ZHPR2 %ZHPR2
  %%ZROTG %ZROTG %%ZSCAL %ZSCAL %%ZSWAP %ZSWAP %%ZSYMM %ZSYMM %%ZSYR2K %ZSYR2K
  %%ZSYRK %ZSYRK %%ZTBMV %ZTBMV %%ZTBSV %ZTBSV %%ZTPMV %ZTPMV %%ZTPSV %ZTPSV
  %%ZTRMM %ZTRMM %%ZTRMV %ZTRMV %%ZTRSM %ZTRSM %%ZTRSV %ZTRSV))

(MAGICL.FOREIGN-LIBRARIES:TRACK-SYMBOLS 'MAGICL.FOREIGN-LIBRARIES::LIBBLAS
                                        '(("CAXPY" "caxpy_" %%CAXPY %CAXPY)
                                          ("CCOPY" "ccopy_" %%CCOPY %CCOPY)
                                          ("CDOTC" "cdotc_" %%CDOTC %CDOTC)
                                          ("CDOTU" "cdotu_" %%CDOTU %CDOTU)
                                          ("CGBMV" "cgbmv_" %%CGBMV %CGBMV)
                                          ("CGEMM" "cgemm_" %%CGEMM %CGEMM)
                                          ("CGEMV" "cgemv_" %%CGEMV %CGEMV)
                                          ("CGERC" "cgerc_" %%CGERC %CGERC)
                                          ("CGERU" "cgeru_" %%CGERU %CGERU)
                                          ("CHBMV" "chbmv_" %%CHBMV %CHBMV)
                                          ("CHEMM" "chemm_" %%CHEMM %CHEMM)
                                          ("CHEMV" "chemv_" %%CHEMV %CHEMV)
                                          ("CHER" "cher_" %%CHER %CHER)
                                          ("CHER2" "cher2_" %%CHER2 %CHER2)
                                          ("CHER2K" "cher2k_" %%CHER2K %CHER2K)
                                          ("CHERK" "cherk_" %%CHERK %CHERK)
                                          ("CHPMV" "chpmv_" %%CHPMV %CHPMV)
                                          ("CHPR" "chpr_" %%CHPR %CHPR)
                                          ("CHPR2" "chpr2_" %%CHPR2 %CHPR2)
                                          ("CROTG" "crotg_" %%CROTG %CROTG)
                                          ("CSCAL" "cscal_" %%CSCAL %CSCAL)
                                          ("CSROT" "csrot_" %%CSROT %CSROT)
                                          ("CSSCAL" "csscal_" %%CSSCAL %CSSCAL)
                                          ("CSWAP" "cswap_" %%CSWAP %CSWAP)
                                          ("CSYMM" "csymm_" %%CSYMM %CSYMM)
                                          ("CSYR2K" "csyr2k_" %%CSYR2K %CSYR2K)
                                          ("CSYRK" "csyrk_" %%CSYRK %CSYRK)
                                          ("CTBMV" "ctbmv_" %%CTBMV %CTBMV)
                                          ("CTBSV" "ctbsv_" %%CTBSV %CTBSV)
                                          ("CTPMV" "ctpmv_" %%CTPMV %CTPMV)
                                          ("CTPSV" "ctpsv_" %%CTPSV %CTPSV)
                                          ("CTRMM" "ctrmm_" %%CTRMM %CTRMM)
                                          ("CTRMV" "ctrmv_" %%CTRMV %CTRMV)
                                          ("CTRSM" "ctrsm_" %%CTRSM %CTRSM)
                                          ("CTRSV" "ctrsv_" %%CTRSV %CTRSV)
                                          ("DASUM" "dasum_" %%DASUM %DASUM)
                                          ("DAXPY" "daxpy_" %%DAXPY %DAXPY)
                                          ("DCABS1" "dcabs1_" %%DCABS1 %DCABS1)
                                          ("DCOPY" "dcopy_" %%DCOPY %DCOPY)
                                          ("DDOT" "ddot_" %%DDOT %DDOT)
                                          ("DGBMV" "dgbmv_" %%DGBMV %DGBMV)
                                          ("DGEMM" "dgemm_" %%DGEMM %DGEMM)
                                          ("DGEMV" "dgemv_" %%DGEMV %DGEMV)
                                          ("DGER" "dger_" %%DGER %DGER)
                                          ("DNRM2" "dnrm2_" %%DNRM2 %DNRM2)
                                          ("DROT" "drot_" %%DROT %DROT)
                                          ("DROTG" "drotg_" %%DROTG %DROTG)
                                          ("DROTM" "drotm_" %%DROTM %DROTM)
                                          ("DROTMG" "drotmg_" %%DROTMG %DROTMG)
                                          ("DSBMV" "dsbmv_" %%DSBMV %DSBMV)
                                          ("DSCAL" "dscal_" %%DSCAL %DSCAL)
                                          ("DSDOT" "dsdot_" %%DSDOT %DSDOT)
                                          ("DSPMV" "dspmv_" %%DSPMV %DSPMV)
                                          ("DSPR" "dspr_" %%DSPR %DSPR)
                                          ("DSPR2" "dspr2_" %%DSPR2 %DSPR2)
                                          ("DSWAP" "dswap_" %%DSWAP %DSWAP)
                                          ("DSYMM" "dsymm_" %%DSYMM %DSYMM)
                                          ("DSYMV" "dsymv_" %%DSYMV %DSYMV)
                                          ("DSYR" "dsyr_" %%DSYR %DSYR)
                                          ("DSYR2" "dsyr2_" %%DSYR2 %DSYR2)
                                          ("DSYR2K" "dsyr2k_" %%DSYR2K %DSYR2K)
                                          ("DSYRK" "dsyrk_" %%DSYRK %DSYRK)
                                          ("DTBMV" "dtbmv_" %%DTBMV %DTBMV)
                                          ("DTBSV" "dtbsv_" %%DTBSV %DTBSV)
                                          ("DTPMV" "dtpmv_" %%DTPMV %DTPMV)
                                          ("DTPSV" "dtpsv_" %%DTPSV %DTPSV)
                                          ("DTRMM" "dtrmm_" %%DTRMM %DTRMM)
                                          ("DTRMV" "dtrmv_" %%DTRMV %DTRMV)
                                          ("DTRSM" "dtrsm_" %%DTRSM %DTRSM)
                                          ("DTRSV" "dtrsv_" %%DTRSV %DTRSV)
                                          ("DZASUM" "dzasum_" %%DZASUM %DZASUM)
                                          ("DZNRM2" "dznrm2_" %%DZNRM2 %DZNRM2)
                                          ("ICAMAX" "icamax_" %%ICAMAX %ICAMAX)
                                          ("IDAMAX" "idamax_" %%IDAMAX %IDAMAX)
                                          ("ISAMAX" "isamax_" %%ISAMAX %ISAMAX)
                                          ("IZAMAX" "izamax_" %%IZAMAX %IZAMAX)
                                          ("LSAME" "lsame_" %%LSAME %LSAME)
                                          ("SASUM" "sasum_" %%SASUM %SASUM)
                                          ("SAXPY" "saxpy_" %%SAXPY %SAXPY)
                                          ("SCABS1" "scabs1_" %%SCABS1 %SCABS1)
                                          ("SCASUM" "scasum_" %%SCASUM %SCASUM)
                                          ("SCNRM2" "scnrm2_" %%SCNRM2 %SCNRM2)
                                          ("SCOPY" "scopy_" %%SCOPY %SCOPY)
                                          ("SDOT" "sdot_" %%SDOT %SDOT)
                                          ("SDSDOT" "sdsdot_" %%SDSDOT %SDSDOT)
                                          ("SGBMV" "sgbmv_" %%SGBMV %SGBMV)
                                          ("SGEMM" "sgemm_" %%SGEMM %SGEMM)
                                          ("SGEMV" "sgemv_" %%SGEMV %SGEMV)
                                          ("SGER" "sger_" %%SGER %SGER)
                                          ("SNRM2" "snrm2_" %%SNRM2 %SNRM2)
                                          ("SROT" "srot_" %%SROT %SROT)
                                          ("SROTG" "srotg_" %%SROTG %SROTG)
                                          ("SROTM" "srotm_" %%SROTM %SROTM)
                                          ("SROTMG" "srotmg_" %%SROTMG %SROTMG)
                                          ("SSBMV" "ssbmv_" %%SSBMV %SSBMV)
                                          ("SSCAL" "sscal_" %%SSCAL %SSCAL)
                                          ("SSPMV" "sspmv_" %%SSPMV %SSPMV)
                                          ("SSPR" "sspr_" %%SSPR %SSPR)
                                          ("SSPR2" "sspr2_" %%SSPR2 %SSPR2)
                                          ("SSWAP" "sswap_" %%SSWAP %SSWAP)
                                          ("SSYMM" "ssymm_" %%SSYMM %SSYMM)
                                          ("SSYMV" "ssymv_" %%SSYMV %SSYMV)
                                          ("SSYR" "ssyr_" %%SSYR %SSYR)
                                          ("SSYR2" "ssyr2_" %%SSYR2 %SSYR2)
                                          ("SSYR2K" "ssyr2k_" %%SSYR2K %SSYR2K)
                                          ("SSYRK" "ssyrk_" %%SSYRK %SSYRK)
                                          ("STBMV" "stbmv_" %%STBMV %STBMV)
                                          ("STBSV" "stbsv_" %%STBSV %STBSV)
                                          ("STPMV" "stpmv_" %%STPMV %STPMV)
                                          ("STPSV" "stpsv_" %%STPSV %STPSV)
                                          ("STRMM" "strmm_" %%STRMM %STRMM)
                                          ("STRMV" "strmv_" %%STRMV %STRMV)
                                          ("STRSM" "strsm_" %%STRSM %STRSM)
                                          ("STRSV" "strsv_" %%STRSV %STRSV)
                                          ("XERBLA" "xerbla_" %%XERBLA %XERBLA)
                                          ("XERBLA_ARRAY" "xerbla_array_"
                                           %%XERBLA_ARRAY %XERBLA_ARRAY)
                                          ("ZAXPY" "zaxpy_" %%ZAXPY %ZAXPY)
                                          ("ZCOPY" "zcopy_" %%ZCOPY %ZCOPY)
                                          ("ZDOTC" "zdotc_" %%ZDOTC %ZDOTC)
                                          ("ZDOTU" "zdotu_" %%ZDOTU %ZDOTU)
                                          ("ZDROT" "zdrot_" %%ZDROT %ZDROT)
                                          ("ZDSCAL" "zdscal_" %%ZDSCAL %ZDSCAL)
                                          ("ZGBMV" "zgbmv_" %%ZGBMV %ZGBMV)
                                          ("ZGEMM" "zgemm_" %%ZGEMM %ZGEMM)
                                          ("ZGEMV" "zgemv_" %%ZGEMV %ZGEMV)
                                          ("ZGERC" "zgerc_" %%ZGERC %ZGERC)
                                          ("ZGERU" "zgeru_" %%ZGERU %ZGERU)
                                          ("ZHBMV" "zhbmv_" %%ZHBMV %ZHBMV)
                                          ("ZHEMM" "zhemm_" %%ZHEMM %ZHEMM)
                                          ("ZHEMV" "zhemv_" %%ZHEMV %ZHEMV)
                                          ("ZHER" "zher_" %%ZHER %ZHER)
                                          ("ZHER2" "zher2_" %%ZHER2 %ZHER2)
                                          ("ZHER2K" "zher2k_" %%ZHER2K %ZHER2K)
                                          ("ZHERK" "zherk_" %%ZHERK %ZHERK)
                                          ("ZHPMV" "zhpmv_" %%ZHPMV %ZHPMV)
                                          ("ZHPR" "zhpr_" %%ZHPR %ZHPR)
                                          ("ZHPR2" "zhpr2_" %%ZHPR2 %ZHPR2)
                                          ("ZROTG" "zrotg_" %%ZROTG %ZROTG)
                                          ("ZSCAL" "zscal_" %%ZSCAL %ZSCAL)
                                          ("ZSWAP" "zswap_" %%ZSWAP %ZSWAP)
                                          ("ZSYMM" "zsymm_" %%ZSYMM %ZSYMM)
                                          ("ZSYR2K" "zsyr2k_" %%ZSYR2K %ZSYR2K)
                                          ("ZSYRK" "zsyrk_" %%ZSYRK %ZSYRK)
                                          ("ZTBMV" "ztbmv_" %%ZTBMV %ZTBMV)
                                          ("ZTBSV" "ztbsv_" %%ZTBSV %ZTBSV)
                                          ("ZTPMV" "ztpmv_" %%ZTPMV %ZTPMV)
                                          ("ZTPSV" "ztpsv_" %%ZTPSV %ZTPSV)
                                          ("ZTRMM" "ztrmm_" %%ZTRMM %ZTRMM)
                                          ("ZTRMV" "ztrmv_" %%ZTRMV %ZTRMV)
                                          ("ZTRSM" "ztrsm_" %%ZTRSM %ZTRSM)
                                          ("ZTRSV" "ztrsv_" %%ZTRSV %ZTRSV)))

(COMMON-LISP:EXPORT
 '(%CAXPY %CCOPY %CDOTC %CDOTU %CGBMV %CGEMM %CGEMV %CGERC %CGERU %CHBMV %CHEMM
   %CHEMV %CHER %CHER2 %CHER2K %CHERK %CHPMV %CHPR %CHPR2 %CROTG %CSCAL %CSROT
   %CSSCAL %CSWAP %CSYMM %CSYR2K %CSYRK %CTBMV %CTBSV %CTPMV %CTPSV %CTRMM
   %CTRMV %CTRSM %CTRSV %DASUM %DAXPY %DCABS1 %DCOPY %DDOT %DGBMV %DGEMM %DGEMV
   %DGER %DNRM2 %DROT %DROTG %DROTM %DROTMG %DSBMV %DSCAL %DSDOT %DSPMV %DSPR
   %DSPR2 %DSWAP %DSYMM %DSYMV %DSYR %DSYR2 %DSYR2K %DSYRK %DTBMV %DTBSV %DTPMV
   %DTPSV %DTRMM %DTRMV %DTRSM %DTRSV %DZASUM %DZNRM2 %ICAMAX %IDAMAX %ISAMAX
   %IZAMAX %LSAME %SASUM %SAXPY %SCABS1 %SCASUM %SCNRM2 %SCOPY %SDOT %SDSDOT
   %SGBMV %SGEMM %SGEMV %SGER %SNRM2 %SROT %SROTG %SROTM %SROTMG %SSBMV %SSCAL
   %SSPMV %SSPR %SSPR2 %SSWAP %SSYMM %SSYMV %SSYR %SSYR2 %SSYR2K %SSYRK %STBMV
   %STBSV %STPMV %STPSV %STRMM %STRMV %STRSM %STRSV %XERBLA %XERBLA_ARRAY
   %ZAXPY %ZCOPY %ZDOTC %ZDOTU %ZDROT %ZDSCAL %ZGBMV %ZGEMM %ZGEMV %ZGERC
   %ZGERU %ZHBMV %ZHEMM %ZHEMV %ZHER %ZHER2 %ZHER2K %ZHERK %ZHPMV %ZHPR %ZHPR2
   %ZROTG %ZSCAL %ZSWAP %ZSYMM %ZSYR2K %ZSYRK %ZTBMV %ZTBSV %ZTPMV %ZTPSV
   %ZTRMM %ZTRMV %ZTRSM %ZTRSV)
 '#:MAGICL.BLAS-CFFI)

;;; End of file.
